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NIPS  360  FFS 


PROCEDURES 


//XCLASS  PROC  A»A,BSZFILE*,BSZNEWF-, 

//  CL=*  t*  tCLl='  .*  .DEN«,TSAf<«'DUMMV.FlLE'  , 

//  JCBLIBm'FFS.JOBLIB* ,LAB»SL, NO ISP=KEFP ,RGN=60K , 

//  PTFJOBL=*PTF.JOBLIB», 

//  S AM=»  DUMMY.  FILE',SAMaUT«*OUNMY«',TRCH=», 

//  UlSAM=23l4tUSAM«*(IAPE9,fDEFER)*, 

//  VISAM=,VSAM=,VSMOUT» 

//* 

//♦  CHARLES  W.  HICKISCH  MAJOR, USA  PPCJ  C0DE*763NIPS  BP.ANCH«631 
//*  OATE»MARCH  1,197A 
//* 

//CLASS  EXEC  PGM=UTCLASS,REGIONx£RGN 

//STEPLIB  DO  OSN»CPTFJOBL»DISP=SHR 
//  DD  OSN=EJOBLIB,OISP=SHR 

//SYSPRINT  DD  SYSOUT«(6A,CCLI 
//SYSUOUMP  DO  SYSOUT=(£A,tCLl) 

//DATAFILE  DD  DSN=6 1 SAM, UNI Txfiul SAM, VOL*eVI SAM, D ISP= SHP 
//SAMFILE  DD  DSN*C SAM. S,UNI T*CUSAM, VOL*CVSAM ,01 SP*( SHR , KEEP) , 

//  OCBx(RECFM=VB,LRECLxlOCO,BLKSIZE=CBSZFILE,TRTCH=£TRCH, 

//  DEN=£DENJ,LABELx( ,£LAB) 

//UTSAMOUT  DD  £ SAMOUT. DCB* ( RECFM*VB, LR ECL^IOCO, BLK SI ZE=£eSZNEWF , 

//  TRTCH=£TRCH,OEN=£OENI ,DISP=( ,£NOI SP» .LABEL*! , £LAB) , 

//  UN1T=£USAM, VCL=£VSMOUT 
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PROCEDURES 


//XDMPLIB  PROC  A=A,BSZFILE*, 

//  CL»' »' .CLl  = * f * fDEN=,ISAM**DUNHY.FILE*  , 

//  JOBtlB^'FFS.JOBLI B',LAB«SLtRGN»60K, 

//  PTFJOBL*' PTF. JOBLIB', 

It  SAM**  DUNMY.FILE*  t STG*NI PW * TRCH*f 

//  UISAM»*( 231A,P» • , USAM»*<TAPE9,, DEFER)*  , 

//  VISAH*,VSAM* 

//* 

//♦  CHARLES  W.  HICKISCH  MAJOR, USA  PRCJ  C0CE»763NIPS  BRANCH  431 
//*  DATE=MARCH  1,1974 
//♦ 

//UTDMP  EXEC  PGM*UTDMPLIB,REGICN»CRGN 
//STEPLIB  DD  DSN=ePTFJOBL,DISP=SHR 
//  DD  DSN=£JOBLIB,DISP*SHR 

//SYSPRINT  DD  SYSOUT* ( 6A , 6CL ) 

//SYSUDUHP  DD  SYSOUT* ( 6A , 6CL1 1 

//DATAFILE  DD  DSNAME=el S AM ,UNIT*£UI SAM, VOLUME=£VI S AM, 0ISP»SHR 
//ISAMWORK  DD  UN IT*£STG ,OCB=DSORG*I S, SPACE* ( CYL , t 10) ) 

//SAMFILE  DD  OSNAME-£S AM. S, UNI T*£USAM, VOLUME»£VSAM, DI SP- ( SHR , KEEP) , 
//  LABEL*(,£LAB) ,CCB*(RECFM*VB,LRECL-1000,BLKSIZE*£BSZFILE 

//  TRTCH=£TRCH,DEN*£DEN) 


OOOOOlOO 
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00000500 
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00000700 
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00000900 
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NIPS  360  FFS 


PROCEDURES 


PROC  A>A,AUXBUFN>2tAUXSP>6«BLKSI ZEzS60tB>B, 

BSZFILE=f BSZNEWF=, 

CL»*,*»CLl*'f • ,CL2»*t*,CYLCFL»l,DEN-, 
ERQPT*ABEtGEN»'DUMMYt ' t 
INDEX*l,ISAM-'DUMMY.FILE't 

INXSP*l,JOBLIB»*FFS.JOBLIB' ,JOBPAC**FFS.JOBMACRO*  t 
LAB-SLf LIB*' DUMMY. FILE* ,LI Bl®' DUMMY. F ILE' , 
MCTSP*5,NBRBLK*200.0VFL0W-1,PRIME*5,RGN«98K, 
PTFJOBL-'PTF.JOBLIB',PTFJOBM®'PTF.JOBMACRO'« 
SAM«'DUMMY.FILE' tSAMOUT*' DUMMY f'.SDI SP»SHP,SORTSP® 10, 
SOURCL»'DUMMY.FILE',STG*NIPW,TDISP*MC0,TRANS*'CtTRANS' , 
TRANSP*200,TRBUFNO®6,TRCH«,UISAM®'I2314,P)', 
ULIB-2314,ULIBI*2316,USAM.' (TAPE9,»DEFER) 
US0URCL»2316,UTRANS»NIPW,VINDEX®'REF**. DATAFILE', 
VISAM*,VLIB»,VLIBl=,VCVFLOW** REF**. DATA FILE' , 
VPRIME*'REF»*.0ATAFILE*,VSAM*,VSMMCT-,VSM0UT*,VS0URCL*, 
VTRANS»,XOISP*SHR,XINDEX*'OuMMY.FILE', 

XUNIT»2314,XV0L* 


//XFM 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 
n 
// 
ft 
// 
n* 

//♦ 

//* 

//* 

//FM  EXEC  PGM=FM,REGICN*CRGN 

//STEPLIB  DO  DSN-CPTFJOBL,DISP-SHR 
//  DO  DSN»CJ0BLIB,DISP-SHR 

//FMSTAT  DO  SYSOUT*( EA, CCL ) 

//SYSOUT  00  SYSOUT*(CA,CCL» 

//SYSLIST  DD  SYSOUT*(eA,CCL) 

//SOURCPPT  DO  SYSOUT=(£A,eCL) 

//SYSUDUMP  DO  SYSOUT=( £A,eCLl) 

//SYSPRINT  DD  SYSOUT* ( £A , CCL2 ) 

//DATAFILE  DD  DSNAME*£I S AM, UNI T*CUI S AM , VOLUME*£V I SA M, 01 SP=SHR 
//NEWFILE  DD  &GEN.OCB*t OSORG*I S, CYLOFL*£CYLOFL ,BLKSIZE*CBSZNEWF J , 


CHARLES  W.  HICKISCH 
DATE*MARCH  1,  1974 


MAJOR, USA  PROJ  C0DE»763NIPS  BRANCH*43l 


00000100 

X00000200 

00000300 

00000400 

00000500 

00000600 

XOOOOOTOO 

00000600 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 
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00001700 
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00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

X00003300 


// 

SPACE*(CYL,£INDEX), 

X00003400 

// 

0SNAME*£ISAM.A( INDEX ), UNI T*£UI SAM ,VOLUME*EVI NDEX 

00003500 

// 

DO 

EGEN. OCB**. NEWFILE, SPACE*! CYL, EPRIME 1 , 

X00003600 

// 

0SNAHE*CISAM.A!PRIME1 ,UNIT*CUI SAM , VOLUME*EVPR  I ME  , 

X00003700 

// 

DISP*!, KEEP, DELETE! 

00003800 

// 

DO 

CGEN.DCB**.NEWFILE,SPACE*!CYL,ECVFLOW! , 

X00003900 

// 

OSNAME*EI SAM.A ! CVFLOW) ,UNI T=GUI SAM, VOLUME*£VOVFLOW, 

X00004000 

// 

DISP*! ,KEEP,0ELETEI 

00004100 

//FMCOMM 

DO 

UNIT-eSTG,SPACE*!TRK,! 1,1) ) 

00004200 

//FMFLUO 

DD 

UNI T*ESTG, SPACE* !CYL,!EMCTSP, 51  ) 

00004300 

//FMTRANS 

DD  1 

JNIT*ESTG,SPACE*!CYL,!EAUXSP,5) ) ,OCB*BUFNO*CTRBUFNO 

00004400 

//FMLABELS 

DO 

UNI T*CSTG,SPACE*!CYL, ! 1,11  ) 

00004500 

//FMCM 

DO 

UNIT*£STG,SPACE*!TRK,!20,5)  1 

00004600 

//FMCMFILE 

00 

UNI T*ESTG,SPACE-!TRK,!  20,5)) 

00004700 

//FMLITFIL 

DO 

UNIT*ESTG,SPACE*!TRK,!20,5) ) 

000048U0 

//SYSLIB 

DO 

0SN*£PTFjn8M,DISP*SHR 

00004900 

// 

00 

OSN*CjnBMAC, 01SP*SHfi 

00005000 

// 

DO 

DSNAME«SYS1.MACLIB,0ISP*SHR 

00005100 

//FMLEIN 

00 

UNIT*CSTG,SPACE*!TRK,!25,5) ) 

00005200 

//SYSLMOD  DO  UN1T-6STG,SPACE»(CYL,(4,1,10)»,DCB-SYS1.LINKLIB, 

//  LA6EL*EXP0T*66366 

//TEMLSREC  DO  UNI T*CSTG , SPACE*! TRK , ( 20 , 5 1) 

//SOBTLIB  DO  DSNAME*SYS1.SCRTLIB,DISP*SHR 

//SORTIN  DO  UNI T*£STG, SPAC E* < TRK , ( CTR ANS P , 150 ) ) , OCB*BUFNO*£TRBUFNO 

1 10 


X00005300 

00005400 

00005500 

00005600 

00005700 
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PRCCEDLIRES 


\ 


//SORTWKOl  00  SPACE- ( CVL,  (tSOPTSP),  .CQNTIGI  ,UMT=(CSTG,  SEP-SORTIN) 
//S0PTWK02  00  SPACE-ICYLi (tSOPTSP) t .CONTIG) . 

//  UNIT=(£STG,SEP=SCPTHKOi) ,SEP-SCfiTWK01 

//SnRTWK03  DO  SPACE- ( CYL t ( tSDR TSP ) t i CONTI G ) , 

//  'INIT-I  tSTC-tSEP=SnRTWK02»  ,SEP  = S0PTKK02 

//SORTWKOA  00  S P ACE= ( CYL , (CSORTSP I t t COMT IG > , 

//  UNIT=(CSTGtSEP=(SnPTWK0l,SnPTHK03n  , 

//  SEO-I SORTWK01,SORTWK03) 

//S0RTWK05  00  SPACE=(CYLt{£SOPTSP)f tCCNTIG)  , 

//  UNI  T=  ( eSTG  t SEP- ( SriRTWK02.  SORT WKOA)  ) , 

//  SEP=(Sr!RTWK02,SORTWK04l 

//SDRTWKOb  DO  SP ACE- ( C YL  . ( CSCPT S'* » . , CCNT IG ) , 

//  UNTT-I tSTG,SEP=(S0PTWK01f SCRTWK03f S0PTWK05)  ) , 

//  SEP=i SORTWK01tSORTWK03,SORTWK05) 

//SORTOUT  00  OTSP=(OLD,PASS)tDSNAPE-*.SORTIN,VCLUME=PEF=*.SCRTIN, 

//  0CB-(URECL=l500,BtKSrZE  = l504,PECF^'-V6,BUFNQ=2  J 

//FNLEFILE  00  0 SN AM E=*.  S0RTHK04 ♦ VOLU»'E-'»EF  = *.  SOPTWK04 ,0»  SP=  ( CLO i P ASS  ) 
//FMMACRO  DO  DSNAME=*.SOPTWK05,VOLUME=PEF=*.SCRTWK05,DISP=(OLO,PASS) 
//PNOUTMAC  00  OSNAME=*.SORTWK06fVOLUME=REF=*.SORTWK06»OISP=(OLO, PASS) 
//TAPEIN  DO  DSNAME-*.SORTIN,vaLijME=PEF=*.SCRTIN,niSP=(CLOt PASS) 
//TAPEOUT  DO  DSNAME=*.SCRTIN, VOLUME=PEF  = *. SORT  IN, DTSP= (OLD, PASS), 

//  DCB=(  LRECt.-1500,BLKSIZE  = l504,PECFM=ve) 

//RECSIN  DO  DSNAME=*.FMFLUO,VOLUME-REF=*.FMFLUD,DISP=(OLC,PASS) 
//OECSOUT  00  OSNAMe-a. RECSIN, VOLU^E-REF-*. RECSIN, DISP-IQLO, PASS) , 

//  0CB-(  LRECL  = 1000,BUKSIZE-1004,RECF)'=VP) 

Z/RECSWKOl  00  0SNAME**.S0RTWK01,VOLUME-REF=*.S0RTWK01,0I Sp= (OLD, PAS S ) 
//RECSWK02  DO  OSNAME-4 .S0RTWK02 , V0LUME-REF=*.SCRTWK02 , Cl SP= ( OLD, P ASS ) 
//RFCSWK03  DO  OS NAME -4. SOR TWK03 , VOLUME-BEF-* . SCRTHK03 ,0! SP= ( OLD, P AS S ) 
//9ECSWK04  DO  DSNAME=*.SORTWK04,VOLUME=REF-A.SORTWK04,0I SP- ( CLD, P ASS ) 
//RECSWK05  DO  DSNAME-4.S0RTWK05 , VOLUME-REF-4 . SOR TWK05 , DI SP  = ( OLD, PASS) 
//P.ECSWK06  00  DSNAMC**.S0PTWK06,V0LUMe=REF=*.SCRTWK06,DISP=(0LD, PASS) 
//TRANS  00  DUMMY, 0ISP=0LD,CCB=(ER0PT-EERCPT,8UFN0=CTRBUFNC1) 
//FMSETTBL  00  UN IT-G STG, SPACE- ( TRK  , ( 1 , 1 ) ) 

//FMAUXOP  00  0SN-4.FMTRANS, VOLUME-REF-4. FMTRANS,DISP=(OLD, PASS)  , 

//  OCB-(LRECL-lOOO,BLKSIZE=1004,BUFNO-eAUXBUFN) 

//PUNCH  00  SYSOUT-CB,0CB=BUFNO-£AUXBUFN 

//AUXl  00  nuMMY,CCB-(RECFM-VB,BLKSIZE-1004,LRECL-l000,BUFN0=CAUXBUFN) 
//AIJX2  DO  OUMMY,DCB=(RECFM=VB,BLKSIZE=1004,LRECL*1000,BUFNO=&AUXBUFN) 
//AUX3  on  OU“MY,DCB=(RECFM-VB,RLKSIZE=1004,LRECL-1000,BUFNO=CAUXBUFN) 
//AUX4  DO  DUMMY, DCB- ( RECFM=VB, BLKSIZE-1004,LRECL -1000, BUFNO-eAUXBUFN) 
//AUX5  00  DUMMY, DCB- (P EC FM-VB, BLXS IZ E-1004 , LRECL -1 000, BUFNO-EAUXBUFN) 
//FMTAUX  DO  UN!T-CSTG,SPACE-(TRK,(10,5)),OCB-BUFMO=£AUXBUFN 
//SLIB  00  CSNAME-4.SYSLM00,DISP-(0LD,PASS),VCLUME-BEF=4.SYSLM0D 

//  00  DSNAME-CLIB.L,UNIT=CULIB,VOLUME-CVLIB,DISP=SHR 

//  DO  0SNAME-CL1BI.L,UNIT-CULIBI,V0LUME-6VLIB1,0ISP-SHR 
//  DO  OSNAME-£JOBLIB,OISP-SHR 

//SOURCLI B DC  DISP-£SDIS?,OSN=ESOURCL.L,VCL-£VSCUPCL,UNIT-CUSQURCL 
//OMMACS  DO  UNIT=£STG,SPACE-(CYL,(5,l) ) 

//GENFILE  00  UNIT-CSTG, SPACE- (CYL  , (3 , 1 > ) 

//LITFILE  00  UNIT-GSTG,SPACE-(CYL,(3,1) ) 

//EDITFILE  00  UNI T-£ STG, SP ACE- ( C YL , (3 , 1) ) 

//FMNFLUO  00  UNIT-CSTG,SPACE-(CYL,(5,1») 

//FMTEFILE  DO  UN IT-ESTG , SPACE-t TRK , ( 5 , 1 > ) 

//FMAEFILE  00  UNIT-£STG,SPACE-(TRK,(5,l)) 

//FMSOOANQ  00  DI SP-SHR , OSNAME-CI S AM .0 , VOLUME-REF-4. STEPL I B 
//NFLERR  00  DSNAME-4.S0PTWK04,V0LUME-REF-4.S0RTWK04,DISP-IM00,PASS) 
//NFLMACS  00  OSN AME-4. S0RTWK03, VOLUME-REF-*. S0RTWK03 ,01 SP- ( OL 0, P ASS ) 


00005B00 
X00005POO 
00006000 
X00006100 
00006200 
X00006300 
X00006400 
00006500 
X00006600 
X00006700 
00006300 
X00006900 
X00007000 
00007100 
*00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
400007800 
00007900 
00008000 
X00003100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008803 
00003900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009  , )0 
00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
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//ASSEMIN  DO  OSNAME**.FMLITFIL,VOLUME-REF«*.FMLITFIL,OISP»(OLC,PASS) 
//  DO  OSNAME«*.SORTWK06,VOLUME»REF**.SOBTWK06,OISP»(OLO,PASS) 

//ISAMHORK  OD  UNIT=£STG,OCB*OSOBG»lS,SPACE*(CYLf ( 10) ) 

//SAMFILE  DD  DSNAHE=CSAH. StUNI T*eu SAM, VOUUME*CVSAM ,0! SP= ( SHR .KEEP I , 

//  LABEL«( ,tLAB),DCB«(RECFM»VB,LRECL«lOOO,BLKSTZE«CBSZFILE 

//  TRTCH=tTRCH,DEN»COEN) 

//FMSAMCUT  00  £ S AMOUT. OCe»( RECFM*VB , LRECL-IOOC, BLK SI2E*eeSZNEWF, 

//  DEN«£OEM,TRTCH«£TRCH) ;d1SP»(NEW,KEEP| , 

II  LABEL-! ,£LAB) , 

//  UNI T»£U SAM, VOLUME-! PRI VATE, RET AIN, £VSMCUT» 

//FMNOATA  DO  £S AMOUT . DCB-* .F MSAMOUT , 01 SP- ! .KEEP) , L A8 EL- ! , £L AB ) , 

//  UNIT-£USAM, VOLUME-! PRI VATE ,RET A IN .SVS^MCT ) 

//STAT  DO  OSN-P.FMCM,VOL-REF-A.FMCM,OISP-!CLD,PASS) 

//TRANST  00  DSN-£TRANS,V0L-£VTRANS,UNIT-£UTRANS,DISP-£TDISP, 

//  SPACE-!TRK, 1) 

//INDEXPRT  DO  SY SOUT- | £ A, £CL I 

//IXTRANS  00  0ISP»!HEW,PASS),UNIT»£STG,SPACE-!CYL,!£INXSP,1) ) 

//XINDEX  00  DSN-tX!NOEX. X,OISP-!£XDISP,KEEP) ,UNIT=£XUNIT , VOL=£XVOL, 

H OCB-!BLKSIZE»£BLKSIZE,PECFM-F,KEYLEN=A,CSORG=DA), 

//  SPACE-!£BLKSIZE,£NBRBLK) 


00011500 

00011600 

00011700 

X00011800 

,X00011900 

00012000 

X00012100 

00012200 

00012300 

00012600 

X00012500 

00012600 

00012700 

00012800 

00012900 
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00013600 
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PROC  A^A.AUXe  'N«2f AUXSP>6>B>BtBLKSlZE>560i 
BSZFILE=,BSZNEWF=, 

CHKDSP=OELETE,CHKID*'£CCHKID* ,CHKSP=0, 
CHKST=NEW,CL=' t'.CLl*', SCLZ**, 'f DEN=,EROPT»ABE, 
INXSP=1,ISAM»*DUHMY.FILE' ,jnBLIB=*FFS.JOBLIB' , 
LAB=SL,LIB**DUMMY.FILE*  ,LIB1-'0L'MMY.F1LE'  t 
HCTSP*5fNBRBLK=200fNRMDSP=DELETE,RGN»98K, 
BTFJ0BL=*PTF.JC1BLIB*, 

SAM=»  DUMMY. FILE* ,SAMOUT  = * DUMMY, *, S0RTSP»10, 
STG»NI PW,TDISP=MOO, TRANS* • ££TR ANS • , 
TRANSP»200,TRCH=,UCHK«N1PW,UISAM«»(2314,P)', 
ULIB=2314,ULIBl=2314,USAM-'(TAPE<),,DEFER)  • , 
UTRANS=NIPW,VCHK«,VISAM*,VLIB»,VLIB1=, 
VSAM=,VSMMCT=, VSMOUT=,VTRANS=, 

XD!  SP*SHR,XINDEX=> 'DUMMY.  FILE*  ,XUNIT*231A,  XVOL- 


CHARLES  W.  HICKISCH 
DATE=MARCH  1,  1974 
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//XFMEX 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//* 

//* 

//* 

//FM  EXEC  PGM*FM,REGION»£RGN 

//STEPLIB  OD  OSN*£PTFJOBL,DISP*SHR 
//  DO  DSN*£JOBLIB,OISP=SHR 

//FMSTAT  DD  SYSOUT- ( £A , £CL ) 

//SYSOUT  DD  SYSOUT* ( £A,£CL) 

//SYSUOUMP  DO  SYSOUT=( £A,£CL1» 

//SYSPRINT  00  SYS0UT*(£A,£CL2J 
//SOURCPRT  DO  SYS0UT*(£A,£CLI 

//OATAFILE  00  DSNAME*£I SAM, UNI T»£UI SAM , VOLUME*£VI SAM,OI SP=SHR 
//FMCOMM  00  UMT=£STG,SPACE  = (TRK,(l,l)), 

//  0ISP=( ,£NRMOSP,£CHKOSP),DSNAME-£CHKID.A 

//FMFLUO  DD  UNI T=£ STG, SPACE- ( CYL  , ( £MC TSP, 5 » ) , 

//  OISP=( ,£NRMDSP,£CHKOSP»,OSNAME-£CHKID.B 

//FMTRANS  DD  UN  IT=£ STG, SPACE- (CYL , ( £AUXSP, 5 ) » , 

//  OISP-(,£NRMDSP,£CHKOSP>,DSNAME-£CHKID.C 

//SYSLMOO  00  LABEL-EXP0T-66366,SPACE-«CYL,(4,l,l0) >,DCB-SYSI.LINKLIB, 
//  UNIT=£STG,DSNAME-£CHKID.D,0ISP»(,£NRMDSP,£CHK0SP| 

//SORTLIB  DD  DSN AME-SY SI . SORTL I B ,01 SP-SHR 


//SORTIN 
// 

//SORTWKOl  DO 
// 

//S0RTWK02  DO 
// 

// 

//S0RTWK03  DD 
// 

// 

//SORTWK04  DO 
// 

// 

// 

//S0RTWK05  DD 
// 

// 

// 


00  UNIT-£STG,SPACE-(TRK,(£TRANSP,150I) , 

0ISP-( ,£NRMDSP,£CHKDSP),OSNAME»£CHKID.E 
SPACE-(CYL,(£SORTSPJ ,,C0NTIGJ ,UNI T- ( £ STG, SEP-SORTIN I , 
OISP-(  ,£NRMOSP,£CHKDSPI,OSNAME«£CHKIO.F 
SPACE-ICYL ,I£SORTSP),,CONTIG), 

DISP-(  ,£NRMDSP,£CHKOSP>,OSNAME-£CHKID.G, 
UNIT-(£STG,SEP-S0RTMK01I ,SEP-S0RTWK01 
SPACE-! CYL, (CSORTSP»,,CONTTGI, 
OISP-(,£NRMOSP,£CHKOSP),OSNAME-CCFKIO.H, 
UNIT-(£STG,SEP-S0RTWK02) ,SEP»S0RTWK02 
SPACE-(CYL,l£SORTSP),,CONTIGI, 

DISP-( ,£NRMDSP,£CHKDSP),DSNAME-£CHKI0.I, 

UNI T-(£STG, SEP- ( SORTWKOl, S0RTWK03) I, 

SEP-( SORTWKOl, SORTWK03I 
SPACE-! CYL, (£SORTSP»,,CONTIG), 

OISP-! ,£NRM0SP,£CHK0SP),0SNAME-£CHKI0.J, 
UNIT-!£STG,SEP-!SORTWK02,S0RTWK04l), 

SEP-! SORTWK02,SORTWK04) 

//S0RTWK06  DO  SPACE- ! CYL  , !£SORTSP ), ,CONTI GI , 

//  OISP-!,£NRMDSP,£CHKOSP) ,DSNAME-CCFKIO.K, 
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//  UNIT=(  CSTG,  SEP=(  SORTWKOl  ,S0P.TWK03fS0RTWK05) ) , 

//  SEP=( SORTWKOl,SORTWK03fSORTWK05) 

//SORTOUT  DC  DISP=tOLO, PASS ). DSN #HE»*. SORTIN, VCLUHE=REF=* . SORTI N , 

//  DC8=( LPECL=l500,BLKSIZE»l50A,RECFP=vei 

//RECSIN  DO  0SNAME=*.F‘1FLU0,V0LUME=REF=*.FMFLUD,DISP=(0LDfPASS) 

//RECSOUT  DD  OSNAME=*. RECS I N, VOLUME«P EF=* .RECS IN, D I SP= ( OL D , P ASS J , 

//  OCfl=(  LRECL  = 1000,BLKSIZE*100A,RECFf'*VB) 

//RECSWKOl  DO  0SNAME=*.SQRTHK01, V0LUf*E=REF=*.SCRTWK01,DI SP= ( OLO,P ASS ) 
//RECSWK02  DD  DSNAME=*. S0RTWK02, VOLU»«E=REF=*. SCRTWK02 ,DI SP  = ( OLD, P AS S ) 
//RECSWK03  DO  DSNAME=*. S0RTWK03, VCLUME*REF=*. SCR TWK03 ,01 SP= ( OLD , PASS) 
//RECSWKOA  DO  DSMAME=*.SORTWKOA, VOLUME*REF=*.SOPTWKOA,DI SP= ( OLD, PASS ) 
//RECSWK05  DO  DSNAME=*. S0RTWK05 , V0LUME=REF= S0RTWKC5 ,01 SP= ( OLD , PASS ) 
//RECSWK06  DD  DSNAME=* . S0RTWK06 , VOLUME»REF=*. SCRTWK06 , Cl SP= ( OLD , PASS ) 
//TP.ANS  DD  DUMMY,  DISP=CLD,DCB=EROPT=£EROPT 
//FMSETTBL  DO  UN  I T=e STG, SPACE= ( TRK , ( 1 , 1 ) ) , 

//  DTSP=( , £NRMDSP,eCHKDSP) ,DSNAME=£CHKID.L 

//FMAUXOP  DD  UNIT=£STG,SPACE={CYL,(£AUXSP,5) ), 

//  DCB=(LRECL=ICOO,BLKSIZE=100A,BUFNC=£AUXBUFK) , 

//  DISP=I ,£NRMDSP,£CHK0SP),DSNAME=£CHKID.M 

//PUNCH  DD  SYS0UT=£B,DCB=BUFN0=£AUXBUFN 

//AUXl  DO  DUMMY, 0CB=(RECFM=VR,BLKSIZE=1004,LRECL=1000,BUFN0=£AUXBUFN» 
//AUX2  DD  DUMMY, DCB=(RECF«'=V8,BLKSIZE  = lOOA,LRECL  = lOOO,BUFNO=£AUX0Ut- 
//AUX3  DD  DUMMY, DCB=(RECFM=V0,BLKSIZE=1OOA,LRECL  = 1OOO,BUFNO=£AUXBUFS 
//AUXA  DO  DUMMY, OCB=(R ECFM*VB, BLK SI ZE=100A,LRECL=1 000, BUFNO=£AUX0UFN) 
//AUX5  DO  DUMMY, DCB=(RECFM=VB,BLKSIZE=100A,LRECL=1000,BL'FNO=£AUXBOFN) 
//FMTAUX  DD  UNIT=£STG,SPACE=(TRK,I10,5)), 

//  DCB=BUFNO=£AUXBUFN, 

//  D1SP=( ,£NRMDSP,£CHKDSP) ,OSNAME=£CHKID.N 

//SLIB  DD  DSNAME=*.SYSLMOD,DISP=IOLD,PASS) ,VOLUME=PEF=*.SYSLMOD 

//  DO  DSNAME=£LIB.L,UNIT*£ULIB, VOLUME-£VLIB,DI SP=SHR 
//  DO  DSNAME=£LIB1.L,UNIT=£ULIB1,V0LUME=*EVLIB1,DISP=SHR 
//  DD  OSNAME=£JOBLIB,OISP=SHP. 

//FMSOOANQ  DD  DI SP=SHR , DSNAME=£I S AM. D, VOLUME=R EF=*. STEPL I B 
//ISAMWORK  DD  UN IT=£ST G, OCB=OSORG=I S, SP ACE= ( CYL , ( 1 0) ) , 

//  DrSP=(,£NRMOSP,£CHKDSP),DSNAME=£CHKID.O 

//SAMFILE  DO  DSNAME=£SAM.S,UNIT=£USAM,V0LUME=£VSAM,0I SP= ( SHR , KEEP ) , 

//  LABEL=t ,£LAB),0CB=(RECFM=VB,LReCL=1000,BLKSIZE=£BSZFILE 

//  TPTCH=£TRCH,DEN=£OEN) 

//FMSAMOUT  DD  £S AMOUT. DCB= ( RECFM=VB , LBECL= 1000, BLK SI Z E=£BSZNEWF , 

//  OEN=£OEN,TRTCH=£TRCH),OISP=(NEW,KEEP) , 

//  labels!, £LAB), 

//  UNIT=£USAM,VOLUME=(PRIVATE,RETAIN,£VSMOUT) 

//FMNDATA  DD  £S AMOUT .DCB=*. FMSAMOUT ,01 SP* ( .KEEP ), LABEL=< , £LAB ) , 

//  UNIT=£USAM,VOLUME=(PRIVATE,RETAIN,£VSMMCT) 

//CHECKOD  DD  DSN AME= £CHK ID,OI SP= ( £CHKST , ENRMDSP , £CHKDSP) ,UNI T*=£UCHK , 

//  VOLUME»£VCHK, SPACE- ( CYL , ( £CHKSP , 1 ) ) 

//STAT  DO  UNIT-ESTG, SPACE-! TRK, 120,5) ) 

//TRANST  DO  DSN-ETR ANS , VOL- EVTRANS , UNI T-£UTR ANS, DI SP-ETOI SP , 

//  SPACE=(TRK,H 

//INOEXPRT  DO  SYS0UT-!6A,£CL) 

//IXTRANS  do  DISP-(NEW,PASS),UNIT-ESTG,SPACE-(CYL,(£INXSP,l) I 
//XINDEX  00  DSN=£XINDEX.X,0ISP-(£X0ISP,KEEP) , UNIT- EXUNIT ,V0L-EXV0L, 

//  DCB-(BLKSIZE-EBLKSIZE,RECFM-F,KEYLEN-A,0S0RG-DA), 

//  SPACE-(EBLKSIZE,ENBRBLK) 
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//XFR  PROC  AxA«AUXSP>6.B>B.BLKSIZE>560,BSZFILE«fBSZNEWF>, 

//  CL**.*.CLl=',*fCL2-'t*t 

//  DEN-f INXSP«1,1SAM«*DUMMY.F1LE* t 

//  JOBLIB«*FFS.jaBLtB* , JOBNAC** FFS. JOBMACRO* t 

//  LAB-SL,  LIB=* DUMMY. FIL E • ,L1BI-*DUMPY. FILE*  t 

//  MCTSP»8f NEWFFT*»DUMMY.F1LE* ,NBRBLK*200, 

//  NEWUSAM-' {TAPE9,, DEFER) ", 

//  PTFJOBL»'PTF.JOBLIB* ♦PTFJOBM**PTF.JOBHACRO' , 

//  RGN=100K, SAM=» DUMMY. FILE* i SORTSP»10, STG*NI PH, 

//  TDISP»MOD,TRANS**££TRANS' , TR ANSP»200 , TR ANTYP*I SAM, 

//  TRCH=,UFFT»*<2314,P)*,UISAM«*J2314,P)', 

//  ULIB*2316,ULIB1>231A, 

//  USAM=* (TAPE9, ,DEFER ) • , UTR ANS»NI PW , VFFT  = , V I SAM« , 

//  VLie=,VLIBl  = ,VSAM=,VSMMCT«,VSMOUT»,VSQRT’« ‘REF**. SORTIN' 

//  VTRANS»,XDISP-SHR,XINOEX** DUMMY. FILE*, 

//  XUNIT»2316,XV0L« 

//* 

//*  CHARLES  H.  HICKISCH  MAJOR, USA  PROJ  C0DE«763NIPS  BRANCH»63l 
//♦  0ATE*MARCH  1,  197A 
//* 

//FR  EXEC  PGM«FR,REGION»£RGN 
//STEPLIB  00  OSN*£PTFJOBL,OISP»SHR 
//  DO  0SN»CJ08LIB,0ISP*SHR 

//SYSLIST  DO  SYSOUT»(£A,£CL) 

//SYSOUT  OD  SYSOUT*(CA,£CL) 

//SYSUOUMP  DO 
//SYSPR1N7  OD 
//SYSPUNCH  DD 
//OLDFILE  DD 
//datafile  DO 
//SAMFILE  DD 
// 

// 

//TDDRCDS  DD 
//POOLRCDS  DD 
//FRVSNA  DD 
//FRVSNB  OD 
//FRGENCO  00 
//SORTLIB  DD 
//FMCOMM  DD 
//FMFLUD  DD 
//FMTRANS  00 
//FMLABELS  DO 
//FMCM  00 

//FMCMFILE  DO 
//FMLITFIL  DO 
//FMLEFILE  DO 
//FMMACRO  DD 
//FMOUTMAC  00 
//SYSLIB  DD 
//  DO 

//  DO 

//FMLEIN  00 
//SYSLMOD  DO 
// 

//TEMLSREC  DD 
//SORTIN  OD 
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SYSOUTx(£A,£CLl) 

SYS0UTx(£A,CCL2) 

SYSOUTx£B 

DSNAMExCISAH,UN1TxCUISAM,V0LUMExgVISAM,0ISPxSHR 
DSNAMExGNEWFFT,UNITxCUFFT, VOLUME*CVFFT,OISP*SHR 
DSNAME=£SAM.S,UNIT-GUSAM,VOLUMEx£VSAM,LABELx( ,CLAB), 
DCB>(RECFHxVB,LRECLxlOOO,BLKSIZEx£BS2FILE,DENx£OEN, 
TRTCH*£TRCH) ,OISP-ISHR,PASS) 
UNn*£STG,SPACE«<CYL,(3,l)  » 

UNI T«£STG,SPACEx(CYL, (3,1 ) ) 

UNI T*£STG, SPACEx(CYL,(5,l)  ) 

UNI TxCSTG, SPACE* (CYL, (5,1) » 

UNIT«£STG,SPACEx(TRK,l) 

DSNAMEx SY SI. SORTLIB, 01 SP-SHR 
UNITxCSTG,SPACEx(TRK,(1,1)) 

UNI Tx£STG, SPACE* (CYL,(£MCTSP, 10)) 
UNITxCSTG,SPACE-(CYL,(CAUXSP,5l) 

UNI I*£STG,SPACE*(CYL,  (1,1)  ) 

UNnx£STG,SPACEx(TRX,  (20,5)) 
UNITx£STG,SPACE*(TRK,(20,5)) 

UNI Ix£STG,SPACEx(TRK,(20,5) ) 
UNITx£STG,SPACE-(CYL,(5,2) ) 
UNIT*£STG,SPACEx(CYL,(8,2) ) 

UNI7-GSTG,SPACEx(CYL, (8,2) ) 

OSNx£PTFJOBM,OISP-SHR 
OSN*£JOBMAC,DISPxSHR 
0SNAMExSYS1.MACLIB,DISPxSHR 
UNI Tx£STG,SPACEx(TRX,(25,5) ) 

UNI T*£STG,SPACEx(CYL,( 6,1,10) ) , DCBx£JOBLI B, 

LABEL-EXPDTx66366 

UNI T-£STG,SPACEx(TRK,( 20,5) ) 

UNI Tx£STG, SPACE- (TRK,(£TRANSP, 20 ) ) 
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//SORTWKOl  00  SPACE  = (CYL  i(CSORTSP)f  tCCNTIGI,UMT“ESTG 
//S0RTWK02  00  SPACE  = ( CYL t ( C SORTSPI t tCONT IG ) t UNI T*( ESTG, SEP*SORTWKO 1 1 
//S0RTWK03  00  SPACE=(CYL  t ( ESORTSP I f t CONTIG) t UNI T«( ESTG, SEP=S0RTWK02 1 
//SOPTWKO^  DO  SPACE=<CYLt(CSORTSP),.CONTIG), 

//  UNI T=(ESTGtSEP=( SORTWKOl. SCRTWK03)) 

//S0PTWK05  DO  SPACE»ICYL,(CSORTSP) ..CONTIGI, 

//  UNIT=(  tSTG.SEP=(SORTHK02,SCRTWK0An 

//S0RTHK06  DD  SPACE*!  CYL ,( ESORTSP) . . CCNTIG) . 

//  UNIT»(CSTG.SEP»(SORTWK03,SCRTWK05)) 

//SORTOUT  DO  DSNAME»*.SCRTIN,VOLUME»REF**.SORTIN,DISP«(OLD,PASS) , 

//  OCB* (LRECL* 1500, BLKSIZE=l 504. RECFH=VB) 

//TAPEIN  DO  DSNAME-*.SCRTIM,VOLUME*evSORT,DISP-(OLD,PASSI 
//TAPEOUT  00  DSNAME»*.SORTIN,VOLUME»CVSORT,OISP=(OLD.PASS) , 

//  DC0»(LRBCL»15OO,BLKSIZE*15O4,RECFM*VB) 

//RECSIN  OU  DSNAME»*.FMFLUO,VOLUME»REF=*.FMFLUO,OISP=(OLD,PASS) 
//RECSOUT  DO  OSNANE-*. RECSIN, VOLUME*REF»*. RECSIN, DISP*!OLO, PASSI , 

//  OCB*! LRECL-10CC,BLKSIZE»1004,RECFM*VB) 

//RECSWKOl  DD  DSNAME**. SORTWKOl ,VOLUHE»REF.*. SORTWKOl ,D ISP* (OLD, PASS) 
//RECSWK02  DO  DSN AME»*. SORTW K02 , VOLU**E*REF**. SORTWK02 ,01 SP= ) OLD.PASS ) 
//RECSWK03  DO  OSNAME-*. SORTW K03, VOLUf*E*REF*R. SORTWK 03 ,DI SP» (OLD, PA SS ) 
//RECSWK04  DO  OSNAME**. S0RTWK04, VOLUME=REF**. S0PTWK04,DI SP»( OLD, PASS) 
//RECSWK05  DO  DSN APE»*. SCRTWK05 ,VOLUME*REF»*. SOBTWK05  ,01 SP*( OLD, P ASS ) 
//RECSWK06  DO  DSN AME»* . S0RTWK06, VOLUME*REF-*. SCRTWK06 ,01 SP» (OLO.P ASS ) 
//TRANS  DO  DONAME«CTRANTYP 

//ISAM  DD  DSNAME*CISAM,UNIT»eUISAM,VOLUPE*£VISAH,OISP»SHR 

//SAM  DO  DSNAME«£SAM.S,UNIT»tUSAM, V0LUME«CVSAM,LA6EL«( ,CLAB) , 

//  OCB=*.SAHFILE,OISP=(SHR,KEEP) 

//ASSEMIN  DD  OSN AME**. FMOUTM AC , VOLUME*PEF*R.FMOUTM AC  ,01 SP»( OLD, P ASS ) 
//FMSETTBL  do  UNIT=CSTG,SPACE=(TRK,(l,l)) 

//FMAUXOP  DD  DSNAME**.FMTRANS,V0LUME»REF»*.FMTRANS,DISP*( OLD, PASS), 
//  0CB»(LRECL*1000,BLKSIZE*1004) 

//SLIB  DO  OSNAME=*.SYSLMOO,DISP*(OLD,PASS),VOLUME»REF»*.SYSLMOO 
//  00  DSNAME=CLIB.L,UNIT-£ULIB,VCLUHE*CVLIB,0ISP*SHP 

//  00  DSNAME=&LIBl.L,UNIT*EULIBl,VCLUME*GVLlei,OISP«SHR 

//  DO  osname=ejcblib,oisp=shr 

//FMSAMOUT  DO  UNI T=ENEWUSAM, VO(.UME* ( PRI V ATE ,RETA I N, EVSMOUT ) , 

//  label=( ,e l ab),disp*( new, keep  ) , 

//  DCB=(RECFM»VB,LRECL«1000,6LKSIZE«EBSZNEWF,DEN»EDEN, 

//  TRTCH«ETRCH) 

//FMNOATA  DO  UN  I T=ENEWUSAM, VOLUME* ( PRI V ATE ,RET AIN , EVSMPCT ) , 

//  LABEL*( ,ELAB) ,DISP*( .KEEP) ,DCB**. FMSAMOUT 

//STAT  DO  DSN=*.FMCM,V0L*REF«*.FMCM,0ISP*(0LD,PASS) 

//TRANSr  DO  dsn*etrans,vol*evtrans,unit*eutrans,oisp*etoisp, 

//  SPACE*(TRK,  1) 

//INDEXPRT  DO  SYSOUT* ( EA , ECL ) 

//IXTRANS  00  OISP*(NFW,PASS) ,UNIT*CSTG,SPACE*(CYL,(EINXSP,l) ) 

//XINOEX  DO  DSN*CXINDEX.X,DISP*(EXOISP,KEEP) ,UNIT*EXUNIT,VOL*EXVOL, 

//  DCB=( BLKSIZE*EBLKSIZE,RECFM*F,K£YLEN*4,0S0RG*0A), 

//  SPACE*(EBLKSIZE,EN8RBLK) 
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PROC 


A«A,CL**, 'fCLl-',' ,BSZNEWF=l004,INDEX=l, 
t SAM.'OUMMY.FILE* , 

JCBLIB«*FFS.JCBL’H* , 

L IB* • DUMMY.FILE LI Bl* ‘DUMMY. FILE', 
NOISP*KFFP.OVCLOW*l,PRIME»5t  R^.N«60K,  SDISP  = SHR, 
PTFJOBL-'PTF.JGBLIB* , 

S0RTSP=3t  SC’URCL*‘DUMMY.FILE‘  ,STG*MPW, 

UISAM-2314,ULIB«2314,ULIBl=2314,USCU«>CL*2314f 

VISAM«,VLIB*.VLIBl*,VSCURCL= 


CHARLES  W.  HICKISCH 
DATE=MARCH  1,  1974 


MAJOR, USA  PRCJ  CODE»763NIPS  8RANCH=431 


//XFS 
// 

// 

// 

// 

// 

// 

// 

// 

//* 

//* 

//* 

//* 

//FS  EXEC  Pr,M*FSPHASE,PEGION*£RGN 

//STEPLIB  OD  DSN*toTFJOBL,OI SP»SHR 

//  DO  OSN«CJOBL1B,01SP*SHC 

//SLIB  DO  0SN»CLI6.L,DISP*SHR,V0LUME=CVLlB,UMT=CUlia 

//  DO  DSN«CLIPl.L,UNIT*CiJHBl,VCLUME*£VLIBl,OI  SP-SHR 

//  OD  DSN*tJOBLlB,OtSP»SHR 

//^GURCLIB  DO  OISP*CSOISP,OSN*CSOURCL.L,VGL*£VSCUPCL,UNIT»CUSCURCL 
//NEWFILE  DO  0 SN»£I SAM. ( I NDEX ), UNI T«£UI SAM , VOLUME* £V! SAM , 

//  SPACE*(CYL,£tNDEX ),OCB*(DSCRG*lS,BLKS!ZE=GBSZNEWF) , 

//  DISP*( ,£NOISP, DELETE) 

//  DO  nSN=£ISAM. (PRIME) ,UN1T*£U1SAM, VOLUME-REF**. NEWFILE, 

//  SPACE*!  CYL,£‘>PIME),0C6-*.NEWFILE,0TSP*t ,£NOISP, DELETE) 

//  OD  OSN-£ISAM.(OVFLOW) ,UNIT-£UI SAM,VOLUME=REF**.NEWFILE, 

//  SPACE* (CYL,£OVFLOW) ,OCB»*. NEWFILE ,DI SP= (, £NDI SP, DELETE ) 

//SORTLIB  DD  OSN*SYS l.SORTL I B , Cl SP-SHR 
//SORTIN  DO  UNIT-£STG,SPACE*(CYC,{1,1)), 

//  DCB*(RECFM*VB,BLKS1ZE»1004,LRECL-1000) 

//SORTWKOl  OD  SPACE»(CYL ,(£SORTSP) , ,CONT I G ) , UNIT- ( GST6, SEP-SCRT IN ) 
//S0RTWK02  DO  SPACE- (CYL ,(£ SOP TS P) , ,CONT IG ) , UNI T-( CSTG ,SEP-S0PTWK01 ) , 
//  SEP-SORTWKOl 

//S0RTWK03  DO  SPACE* ( CYL , ( ESORTSP) , ,CGNT  I G ) , UN  I T- ( £STG  ,S EP= SCRTWK02 ) , 


// 


SEP-S0RTWK02 


//S0RTWK04  DO  SPACE*! CYL ,( ESORTSP ),, CCNTI G ) , 


// 

// 


UNIT-! £STG, SEP-! SORTWKOl , SORTWK03 ) ) , 
SEP-! SORTWKOl, SOfiTWK03) 


//S0RTWK05  DO  SPACE-!CYL , (ESORTSP) , ,CONTIG) , 


// 

// 


UNIT-! £STG,SEP-!SORTWK02,SCRTWK0A) ), 
SEP-( SORTWK02, SORTWKOL) 


//S0PTWK06  DO  SPACE-(CYL,(£SORTSP),,CCNTIG), 

//  UNIT-!£STG,SEP-( SORTWKOl,SORTWK03, SORTWK05 ) ) , 

//  SE  P- ( SORTWKOl , S0RTWK03 , SOR  TWK  05 ) 

//SORTOUT  00  UNIT-£STG,SPACE-!CYL,(l,l) ), 

//  DCB-!PECFM-VB,BLKS1ZE-1004,LRECL-1000) 

//SYSOUT  DO  DUMMY 
//SYSPRINT  DD  SY SOUT- ! tA , CCL ) 

//SYSUOUMP  DO  SYSOUT«(GA,£CLl) 

//SOURCPRT  DD  SYSOUT-(A, £CL) 

//SYSUTl  DD  DISP-C, PASS) ,OSN-IXSPDS, UNIT-ESTG, SPACE-! TPK,!5, 1) ) 
//FSSTEP2  EXEC  PGM- FSABMOD.COND- ! 1 1 1 ,NE , FS ) ,REGION-GRGN 
//STEPLIB  DO  OSN-CJOBLIB,OISP-SHR 
//SYSOUT  DO  SYSOUT- !£A,£CL) 

//SYSPRINT  DO  SYSOUT-! EA,£CL) 

//DELNEW  DO  OSNAME-*.FS.NEWFTLE , UNI T-CUI SAM , VOLUME -REF-*. FS.NEWF ILE, 
//  D1SP-(0L0, DELETE) 


XOOOOOlOO 

X00000200 

00000300 

00000400 

00000500 

00000510 

00000600 

00000700 

00000800 

00000900 

00001000 

OOOOllOO 

00001200 

00001300 

00001400 

00001410 

00001500 

00001600 

00001700 

OOOOIBOO 

♦00001900 

X00002000 

00002100 

*00002200 

00002300 

*00002400 

00002500 

00002600 

*00002^00 

00002800 

00002900 

♦00003000 

00003100 

*00003200 

00003300 

*00003400 

*00003500 

00003600 

*00003700 

♦00003800 

00003900 

*00004000 

♦00004100 

00004200 

♦00004300 

00004400 

00004500 

00004600 

00004700 

00004800 

00004900 

00005000 

00005100 

00005200 

00005300 

*00005400 

00005500 
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//XISTOS  PROC  A»A,BSZFILE*,BSZNEWF«,CC«fCL-' #• ,CLl=*  ,• tDEN=, 

//  TSAM=*OUMMY.FILE', JOBLIB='FFS.JOBLI B* , L AB=SL , NO  I SP  = KeEP, 

//  OOISP»KEEP,OLDSAM=*DU.'<PY.FILE'  ,CL0VSAN=, 

//  0SDISP=KEEP,P.GN=60K,SAP=*0UMMY.FILE'  , SEQNG=l  , 

//  PTFJOBL=‘ PTF.JOBLIB* , 

//  TRCH=,UISAM«' (2314,P1 • , USA •( TAPE9, , DEFER » • , 

//  VISAM-.VSA*** 

//* 

II*  CHARLES  W.  HTCKISCH  MAJORfUSA  PRCJ  CaDE=763NIPS  eRANCH=43l 
II*  DATE=MARCH  I,  1974 
H* 

//STPl  EXEC  PGM=UT6L0SAM,REGinN*£RGN,PAPM«»£:CC' 

//STEPLie  DD  OSN=£PTFJOBL,DISP*SHR 
//  DD  DSN=£jr)BLIBfOISP*SHR 

//DATAFILE  DC  DSNAHE=C I SAM , UNI T-CUI SAM, VCLUME*£VI SAM , 

//  0ISP=(SHR,£0DISP,KEEP),0CB«BUFN0«5 

//SAMFILE  DD  0SNAME-£0LDSAM.S,UNIT»£USAM,DISP=(SHR,£CSDISP), 

//  VOL=£OLDVSAM,0CB»(RECFM»VB,LRECL=1000,BLKS!ZE=£3SZFILB, 

//  DEN=£DEN, TP TCH*£TRCH,BUFNO*5), LABEL- (£SEQNC,£LAB) 

//SAMDUT  DD  DSNAME=£SAM. S,UN IT-£USAM, VOLUME-£V SAM, DI SP- ( , £NOI SP ) , 

//  DCB=(*.SAMFILE,BLKSIZE»£BSZNEWF) ,LABEL=<£SEONO,£LAB» 

//SYSPRINT  DO  SYS0UT-(£A,£CL) 

//SYSUDUMP  DD  SY SOUT- ( £A , £CL I ) 


00000100 

00000200 

00000300 

00000400 

00000410 

00000500 

00000600 

00000700 

00000300 

00000900 

00001000 

00001100 

00001200 

00001210 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 


\ 
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//XKA  PROC 

A=A,CL=' , • ,CL1  = ' , JOBLIB*' FFS.JQBLI  B* ,RGN*100K, 

00000100 

// 

PTFJQBL='PTF.J06LIB', 

00000110 

// 

STG=NrPH,S0RTSP»10, 

00000200 

// 

LIB=,ULIB»2314,VLIB=, 

00000300 

// 

ISAM='DUMMY.FILE',UISAH=' (2314,P) 'tVlSAM*, 

00000400 

// 

SAM=' DUMMY. file* ,US AM= • « TAPE9 , ,DE FER  > • ,VSAM=, 

00000500 

// 

LAB=SL,DEN=3,TRCH= 

00000600 

//♦ 

00000700 

//* 

PARAMETERS 

00000800 

//♦ 

00000900 

//*  A 

SYSOUT  - DEFAULT=PP,INTER 

00001000 

//*  CL 

SYSOUT  CLASSIFICATION  - REQUIRED 

00001100 

//*  CLl 

SYSUDUMP  CLASSIFICATION  - REQUIRED 

00001200 

//♦  JOBLIB 

STEPLIB  DSN  - DEF AULT«FFS. J08L I B 

00001300 

//♦  F.GN 

STEP  REGION  - DEFAULT=175K 

00001400 

//♦PTFJOBL 

STEPLIB  DSN  - CEF AUL T=PTF. JOBL I B 

00001410 

//*  STG 

TEMP  STORAGE  UNIT  - DEFAULT=NIPW 

00001500 

//♦  SORTSP 

SORTWKNN  CYLINDERS  - DEFAULT=10 

00001600 

//♦  LIB 

USER  LIBRARY  DSN  - REQUIRED 

00001700 

//*  ULIB 

USER  LIBRARY  UNIT  - 0EFAULT*2314 

00001800 

//*  VLIB 

USER  LIBRARY  'SER^SEPIAL*  - REQUIRED 

00001900 

//* 

00002000 

//♦  ISAM 

DSNAME  IF  ISAM  DATA  FILE.  OMIT  IF  SAM  FILE. 

00002100 

//♦  UISAM 

ISAM  UNIT  CLASS 

00002200 

//♦  VISAM 

ISAM  VOL  SERIAL 

00002300 

//♦ 

00002400 

//*  SAM 

DSNAME  IF  SAM  DATA  FILE.  OMIT  IF  ISAM  FILE. 

00002500 

//♦  USAM 

SAM  UNIT  CLASS 

00002600 

//*  VSAM 

SAM  VOL  SERIAL 

00002700 

//♦  LAB 

SAM  VOL  LABEL  IF  NOT  STANDARD 

00002800 

//•  DEN 

SAM  VOL  DENSITY  IF  NOT  1600  BPI. 

00002900 

//♦  TRCH 

SAM  CONVERSION  IF  M-TRACK  VOL. 

00003000 

//* 

00003100 

//*  CHARLES  W 

. HICKISCH  MAJOR, USA  PKCJ  C0DE=763NIPS  BRANCH=431 

00003200 

//♦  DATE- 

MARCH  1,1974 

00003300 

//* 

00003400 

//XKA  EXEC 

PGMxUTNDXKAN, 

00003500 

// 

REGI0N*CRGN 

00003600 

//♦ 

00003700 

//STEPLIB 

OD 

DSNxtPTFJOBL, 

00003800 

// 

OISPxSHR 

00003810 

// 

DO 

OSNxCJOBLIB, 

00003820 

// 

DISP«SHR 

00003900 

//* 

00004000 

//♦ 

00004100 

//DATAFILE 

OD 

OSNxCISAM, 

00004200 

// 

OISPxSHR, 

00004300 

// 

UNITx&UISAM, 

00004400 

// 

VOLxCVISAM 

00004500 

//* 

00004600 

//SAMFILE 

DO 

OSNxCSAM.S, 

00004700 

// 

UNITx£USAM, 

00004800 

// 

VOLxCVSAM, 

00004900 

// 

DISP*(SHR,KEEPI, 

00005000 

// 

LABEL>(,CLABI, 

00005100 

// 

OCB*( 0EN»CDEN,TRTCH»€TRCHI 

00005200 

//• 

00005300 
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//SLIB 

DO 

OSN>GLIB.L« 

00005600 

// 

UNIT-CUMB, 

00005500 

// 

VOL-eVLIB, 

00005600 

// 

OISP-SHR 

00005700 

//• 

00005500 

// 

DD 

DSN«CjnBLIB,DISP»SHR 

00005900 

//• 

00006000 

//KANWKOl 

DO 

UN1T«CSTG, 

00006100 

// 

OISP«( .PASS) . 

00006200 

// 

SPACE»(CYL,(ESORTSP.CSORTSP| ) 

00006300 

//• 

00006600 

//SYSOUT 

DD 

SYSOUT«(tA,ECL) 

00006500 

//* 

00006600 

//SVSPRINT 

DO 

SYSOUT»(CA,£CL) 

00006700 

//* 

00006800 

//KNDPRT 

DD 

SYSnUT*(CA,CCL) ,SPACE»ICYL,(2, 1) ) 

00006900 

//* 

00007000 

//SYSUOUMP 

DO 

SYSnUT*ICA,CCH) 

00007100 

//♦ 

00007200 

//SORTLIB 

DO 

DSN-SYSl. SORTLIB, 

00007300 

// 

DISP=SHR 

00007600 

//• 

00007500 

//SORTWKOl 

DD 

UNIT-CSTG, 

00007600 

// 

SPACE=( CYL, rCSORTSP) ,, CONTI G) 

00007700 

//* 

00007800 

//S0P.TWK02 

DD 

UNIT«( tSTG,SEP»S0RTWK01»,SEP»S0RTWK01, 

00007900 

// 

SPACE*(CYL,(CSORTSP) ..CCNTIG) 

00008000 

//* 

00008100 

//S0PTWK03 

DO 

UNIT*( tSTG,SEP*S0RTWK02),SEF*SCRTWK02, 

00008200 

// 

SPACE-I CYL.tCSOPTSP) ..CONTIG) 

00008300 

//* 

00008600 

//soptwko^ 

DO 

UNIT«( tSTG,SEP*( S0RTWK01,S0RTWK03) ) , 

00008500 

// 

SEP«( SOPTWKOl,SORTWK03), 

00008600 

// 

S«>ACE*(CYL  .(CSOPTSP)  ,,  CONTIG) 

00008700 

//* 

00008800 

//S0PTWK05 

DO 

UNI T«( CSTG, SEP» ( SORTWK02 , SCR TMKC4 ) ) . 

00008900 

// 

SEP«( SORThK02,SORTWKOA) , 

00009000 

// 

SPACE=«(CYL,(£SORTSP)  , .CONTIG) 

00009100 

//* 

00009200 

//SORTWK06 

DD 

UNIT-ItSTG,SEP*(S0RTWK0l,SCRTWK03,S0PTWK05) ) , 

00009300 

// 

SEP»( SORTWK0l,SORTWKO3,SORTWK05), 

00009600 

// 

SPACE*! CYL, ( CSCPTSP ),, CONTIG) 

00009500 

//* 

00009600 
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//XKM  PROC 

A=A,CL=*, • ,CL1-*,* , JOBLI B** FFS. JOBLIB ‘.RGN^IOOK, 

00000100 

// 

PTFJOBL='PTF. JOBLIB', 

00000110 

// 

STG»NIPW,SCRTSP»10, 

00000200 

// 

LI6«,ULIB=2314, VLIB=,DLI6«'M0D,KEEP', 

00000300 

// 

PRISP»2,SECSP«2, BLKSI « 3478 

00000400 

//♦ 

00000500 

//* 

PARAMETERS 

00000600 

//* 

00000700 

//*  A 

SYSOUT  - DEFAULT=PRINTER 

oooooaoo 

//*  CL 

SYSOUT  CLASSIFICATION  - REQUIRED 

00000900 

//*  CLl 

SYSUDUMP  CLASSIFICATION  - REQUIRED 

00001000 

//*  JOBLIB 

STEPLIB  OSN  - DEFAULT=FFS. JOBLIB 

00001100 

//*  RGN 

STEP  REGION  - DEFAULT=175K 

00001200 

//♦PTFJOBL 

STEPLIB  DSN  - OEF AULT=PTF . JOBLI B 

00001210 

//♦  STG 

TEMP  STORAGE  UNIT  - DEFAULT=N IPN 

00001300 

//*  SORTSP 

SORTWKNN  CYLINDERS  - DEFAULT*10 

00001400 

//*  LIB 

USER  LIBRARY  DSN  - REQUIRED 

00001500 

//♦  ULIB 

USER  LIBRARY  UNIT  - 0EFAULT*2314 

00001600 

//*  VUIB 

USER  LIBRARY  'SER^SERIAL'  - REQUIRED 

00001700 

//*  DLIB 

USER  LIBRARY  OISP  - OEF AULT» 'MOD, KEEP • 

00001600 

//♦  PRTSP 

WORK  SPACE  PRIMARY  CYLS  - DEFAULT*2 

00001900 

//*  SECSP 

WORK  SPACE  SECONDARY  CYLS  - CEFAULT»2 

00002000 

//*  BLKSI 

WORK  SPACE  OCB  BLKSIZE  - 0EFAULT*94 

00002100 

//* 

00002200 

//*  CHARLES  W 

. HICKISCH  MAJOR, USA  PRCJ  C0DE-763NIPS  BRANCH*431 

00002300 

//♦  OATE« 

MARCH  1,1974 

00002400 

//* 

00002500 

//XKM  EXEC 

PGM»UTNOXKMD, 

00002600 

// 

REGION»eRGN 

00002700 

//* 

00002800 

//STEPLIB 

00 

OSN*£PTFJOBL, 

00002900 

// 

DISP*SHR 

00002910 

// 

00 

OSN^CJOBLIB, 

00002920 

// 

OISP-SHR 

00003000 

//* 

00003100 

//SLIB 

00 

OSN>CLIB.L, 

00003200 

// 

UNIT>&ULIB, 

00003300 

// 

VOL-CVLIB, 

00003400 

// 

DISP*(EDLIB) 

00003500 

//* 

00003600 

//KMOWKOl 

DO 

UNIT»tSTG, 

00003700 

// 

OISP«l,PASSI, 

00003800 

// 

SPACE>(CYL,(£PRISP,CSECSP) ) , 

00003900 

// 

0CB>(RECFM«FBS,LRECL-94, BLKSIZE -GBLKSI  1 

00004000 

//* 

00004100 

//KHDWK02 

00 

UNIT-CSTG, 

00004200 

// 

DISP»( ,PASSI, 

00004300 

// 

SPACE>(CYL,UPRISP,CSECSP)  ) , 

00004400 

// 

DC B«(RECFM>FBS,LRECL-94, BLKSI ZE-EBLKSI 1 

00004500 

//♦ 

00004600 

//KNDWK03 

00 

UNIT«tSTG, 

00004700 

// 

OISP»( ,PASS), 

00004800 

// 

SPACE-(TRK,(1,1)> 

00004900 

//* 

00005000 

//KM0WK04 

DO 

UNIT- CSTG, 

00005100 

// 

OISP-(,PASSI, 

00005200 

// 

SPACE-(TRK,ES,5n, 

00005300 
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// 

//* 

DCB»(RECFM*FBS,LRECL»72tBLKSIZE«720) 

00005400 

00005500 

//KMDWK05 

// 

// 

// 

//* 

OD 

UNITxCSTGf 

DISP>(,PASS), 

SPACE=(CYL, (CPRISP.eSECSPl ) t 
DCB«<RECFM*FBStLRECL»94fBLKSIZE»CBLKSI ) 

00005600 

00005700 

00005800 

00005900 

00006000 

//SYSOUT 

//* 

00 

SYSOUT«<eA,GCL) 

00006100 

00006200 

//SYSPRINT 

00 

SYSOUT-(CA,GCL» 

00006300 

//KMDPRT 

//* 

00 

SYSOUT»(GA,GCL) tSPACE«(CYLt(2,  in 

00006400 

00006500 

//SYSUOUMP 

//* 

DO 

SYS0UT»(6A,GCLn 

00006600 

00006700 

//SORTLIB 

// 

//* 

DO 

OSN^SYSl. SORTLIB, 

DISP*SHR 

00006800 

00006900 

00007000 

//SORTWKOl 

)! 

n* 

00 

UNIT-GSTG, 

SPACE*ICYL,(GSORTSP) ,,CONTIG» 

00007100 

00007200 

00007300 

//S0RTWK02 

// 

//* 

00 

UNIT*{GSTG,SEP»SORTWKOn ,SEP»SCRTWK01, 

SPACE=(CYL, JGSORTSPI, , CONTI GJ 

00007400 

00007500 

00007600 

//S0RTWK03 

// 

//* 

DO 

UNIT=(GSTG,SEP»SCRTWK02),SEP»SORTHK02, 

SPACE *<CYL,(GS0PTSP),,C0NTIG) 

00007700 

00007800 

00007900 

//SORTWK04 

// 

// 

//♦ 

DO 

UNIT»(GSTG,SEP*(SORTWK0l,SCRTWK03n, 

SEP*( SORTWKOl, S0RTWK031 , 
SPACE=(CYL,(GSORTSPl,,CONTlG» 

00008000 

00008100 

00008200 

00008300 

//S0RTWK05 

// 

// 

//* 

00 

UNIT*(GSTG,SEP*<  SQRTWK02, S0RTWK04) 1 , 

SEP»( S0RTWK02,S0RTWK04) , 

SPACE* (CYL,(GSORTSP),,CCNTIG) 

00008400 

00008500 

00008600 

00008700 

//S0RTWK06 

// 

// 

//* 

DO 

UNI T=(CSTG, SEP* (SORTWKOl, SCRTWK 03 , SORTWK05I ) , 

SEP-( SORTWKOl, SOPTWK03,SCRTWK05), 
SPACE»(CYL,tGSORTSP> ,,CONTIGl 

00008800 

00008900 

00009000 

00009100 
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//XOP  PROC 

A=A,B*B.BSZFILE=,BSZFILl=,BSZFIL2=f 

00000100 

// 

CL=‘f •tCLl=‘,*fCL2=','t 

00000200 

// 

I SAM*' DUMMY.FILE*  f TSANI*'0UMMY.FILE' f I S AH2* • OUMM Y.F t LE • 

, 00000300 

// 

JOBLIB='FFS.JOBLIB' t JOBMAC- ' FF S . JOBM ACRO* , 

00000400 

// 

LAB*SL, 

00000500 

// 

L IB* • OUMMY.FILE* , LI  81* ‘DUMMY. FILE', LI  62*' DUMMY. FILE* , 

00000600 

// 

L1BDISP*SHR, 

00000700 

// 

PTFJOBL*' PTF.JOBLI B‘, 

00000710 

// 

PTFJOBM*' PTF.JOBMACRO* , 

00000720 

// 

0DF='EEQDFILE‘ ,QDISP=PASS,QRT=‘EECFTFILE' , 

00000800 

// 

PGN=100X, 

00000900 

n 

S AM*'0UMMY.FILE‘ ,SAM1*‘DUMMY.FILE ' ,SAM2=‘ CUMMY.FILE* , 

00001000 

// 

SDISP*SHP,SOURCL=‘OUMMY.FILE‘ ,STG*NIPW, 

00001100 

// 

TOISP=MOO,TPANS='E£TRANS', 

00001200 

// 

UISAM*‘(2314,P)‘, 

00001300 

// 

ULI B=2314, UL IB  1=2314, ULIB2 =2314, 

00001400 

// 

UOOF=NIPW,UOP.T  = NIPW, 

00001500 

// 

US AM=‘(TAPE9,, DEFER )• ,US0URCL=2314, 

00001600 

// 

UTRANS*NIPW, 

00001700 

// 

V1SAM*,VISAM1-,VISAM2=, 

00001800 

// 

VLIB=,VL1B1*,VLIB2=, 

00001900 

// 

VODF*,VORT=, 

00002000 

// 

VSAM*,VSAM1*,VSAM2*, 

00002100 

// 

VSOURCL*, VTRANS* 

00002200 

//♦ 

00002300 

//♦  CHARLES  W 

1.  HICKISCH  MAJOR, USA  PRCJ  C0DE=763NIPS  BRANCH=431 

00002400 

//♦  DATE=MAP,CH  1,  1974 

00002500 

//* 

00002600 

//OP  EXEC  1 

»GM=- 

0P,REGI0N*ERGN 

00002700 

//STEPLIB 

DD 

OSN=E  PT  FJ  OBL , 0 1 SP*  SHR 

00002800 

// 

DD 

OSN*£JOBLIB,DISP*SHR 

00002810 

//DATAFILE 

DD 

DSNAME=EISAM,OISP=SHR,UNIT*£UISAM,VOLUME*EVISAM 

00002900 

//DATAFILI 

DD 

0SNAME*E1SAM1,01SP*SHR,UNIT=EUISAM,V0LUME-EVI SAMI 

00003000 

//DATAFIL2 

OD 

0SNAME-EISAM2,DtSP=SHR,UNIT*CUISAM,V0LUME=£VlSAM2 

00003100 

//SAHFTLE 

DO 

OSNAME*ESAM.S,OISP*SHP,UNIT=£USAM,VOLUME*EVSAM, 

X00003200 

// 

LABEL=( ,ELAB),DCB*BLKSIZE*EBSZFILE 

00003300 

//SAMFILEl 

OD 

0SNAME*£SAM1.S,0ISP»SHR,UNIT=GUSAM,V0LUME=CVSAM1, 

X00003400 

// 

LABEL*! ,ELAB),DCB*BLXSIZE*EBSZFIL1 

00003500 

//SAPFILE2 

DD 

1 DSNAME*ESAM2.S,DISP*SHR,UNIT»EUSAM,V0LUME=£VSAM2, 

*00003600 

// 

LABEL*! ,£LAB),DCB*BLKSIZE*£BSZFIL2 

00003700 

//DLIB  DD 

OSNAME*eLIB.L,OISP»eLIBOISP,VOLUME=EVLlB,UNIT=EULIB 

00003800 

//TLIB  DD 

OSNAME»ELIBl.LfDlSP-SHR, VOLUME* EVLIBltUNIT»EULIBl 

00003900 

//SOURCPRT 

OD 

SYSOUT*!EA,ECLI 

00004000 

//SOURCLIB 

DO 

1 OISP*ESDISP,DSN-ESOURCL.L,VCL*EVSOURCL,UNIT=£USCURCL 

00004100 

//SYSPRINT 

DD 

SYSOUT*!EA,CCL) ,DCB*!LRECL=133,BLKSIZE*665I 

00004200 

//SYSOUT 

DD 

SYSOUT* !£A,£CL) 

00004300 

//SYSUDUMP 

OD 

SYSOUT*!  EA.ECLH 

00004400 

//SYSUTl 

DO 

UN1T*ESTG,SPACE-!TRK,1200,20) ) 

00004500 

//SYSUT2 

OD 

UNIT*!£STG,SEP*SYSUT1I,SPACE*!TRK, !200,20) » 

00004600 

//SYSUT3 

DO 

UN  IT*! ESTG, SEP*! SYSUTl, SYSUT2J ), SPACE* ! TRK ,! 200 ,20» ) 

00004700 

//SYSPUNCH 

DO 

UNIT*CSTG,SPACE*!TRK,!50,10))  , 

X00004800 

// 

OCB*!RECFM*FB,LRECL-80,BLKS1ZE*400I 

00004900 

//SYSLIB 

00 

DSN*CPTFJOBM,DISP*SHR 

00005000 

// 

00 

DSN-CJ08MAC,DISP*SHR 

00005010 

//SYSLMOD 

DO 

UNIT-ESTG,SPACE*!TRK,!50,25,5I ),0CB*SYS1 .LINKLIB, 

X00005100 

// 

LABEL*RETPO*0000 

00005200 

//SYSTPRT  1 

00  SYSOUT* (E A, ECL 1 tOCB*(RECFM*FB,LRECL«121«BLKSIZE*605» 

00005300 
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PPCCEDUPFS 


UNTT«ESTG, SP ACE* ( TRK 1 1 2 1 lH  t OCB* ( BLKS I Z E*400, LPECL*80 , 
PECFM-FBI 

UNIT»ESTGf SPACE-(TRK,( 10,2) ) 

UNIT*ESTG,SPACE=(TRK, ( 1,1) ) 

UNIT»ESTG,SPACE«(TRK,( 1,1) ) 

UNIT-ESTG, SPACE*) TRK,(50,5)) 

UNIT»ESTG,SPACE»<TRK,)10,5) ) 

UNIT-CSTG,SPACE*)TRK,( 10,5) ) 

UNIT«ESTG,SPACE*(TRK,(50,5) ) 

DSNAME»*.SYSUT1, V0LUME*REF«*.SYSUT1,0ISP»(0LD,PASS) 
DSNAME»*.SYSUT2,Vril.UME»REF»*.SYSUT2,0ISP=(CL0,PASS) 
DSNAME=*. SYSUT3,  VOLUME-REF**.  SYSUT3, 01  SP*-<CLD,  PASS) 
UNIT-ESTG,SPACE-)TRK,( 1,1)) 

UN1T*ESTG,SPACE*(TRK, ( 8,5) ) 

OS NAME**. SYSPUNCH, VCL UME-REF**. SYS  PUNCH, 01 SP*( OLD, PASS) 
UNIT-ESTG,SPACE*(TRK, ( 1,1)  ) 

OSNAME»*.SYSUT1,VOLUME-REF«*.SYSUT1,OISP-(CLO,PASS) 
OSNAME-*. SYSUT2, VOLUME-REF**. SYSUT 2, OTSP*(CLO, PASS) 
OSNAME=*.SYSUT3,VOLUME-REF**.SYSUT3,OISP-(CLO,PASS) 
SYSOUT*(EA,ECL2),OCB*LBECL*133 
: SYSOUT»EB 

//SLIB  00  OSNAME**.SYSLMOO,vnLUME-PEF**.SYSLMOO,OISP-tCLC,PASS) 

//  00  OSNAME-*.OLIB,OISP*SHR,UNIT*EULIB,VOLUME*EVLIB 
//  00  DSNAME-*.TLIB,D1SP*SHP,,UNIT*EULIB1,V0LUME-EVLTB1 
//  00  0SNAME*ELIB2.L,0TSP-SHP,UNIT*EULIB2,VCLUME*EVLTB2 

It  00  0SNAME*EJ0BL1B,0ISP-SHP 

//SYSAIN  00  OSNAME**. LITSTR, VOLUME-REF**. LITSTP,01SP*(0L0, PASS) , 

//  OCB-(RECFM*FB,LRECL*80,BLKSIZE-AOO,BUFNO*5) 

//  00  OSNAME**. INSTS, VOLUME-REF**. INSTS,01SP*(0L0, PASS) , 

//  OCB-(RECFM*FB,LRECL*80,BLKS!ZE-400,BUFNC*5) 

//SYSLIN  00  OSNAME**. LCF, VOLUME-REF**. LCF,OISP*(CLD, PASS) 

//SYSTIN  00  OSNAME**. LCT, VOLUME-REF**. LCT,OISP*(OLO, PASS) 

//LOAOR  DO  OSNAME-*. SYSPUNCH, VOLUME-REF-*. SYSPUNCH, OTSP-(OLC, PASS) , 
n OCB-)RECFM»FB,LRECL*eO,BLKSIZE»AOO) 

//QOFILE  00  DSNAME-E00F,UNIT-CU00F,V0LUME-EVC0F,CISP-(SHR,EC0ISP,KEEP) 
//ORTFILE  00  OSNAME*EORT,UNTT-EUOPT,VOLUME-EVQRT,OISP*(SHR,ECOISP,KEEP) 
Z/STAT  00  OSN-*. INSTS, VOL-REF-*. INSTS, DISP-<CLC, PASS) 

Z/TRANST  00  OSN-ETP ANS , VOL- EVTR ANS ,UN1 T-EUTR ANS , 

ZZ  0ISP*ET0ISP,SPACE-)TRK,1) 


ZZOPIWCF 

DO 

ZZ 

ZZCPSTST 

DO 

ZZOPCREATE 

00 

ZZOPCOMREC 

DO 

ZZINSTS 

00 

ZZLCF 

00 

zzlct 

00 

zzlitstr 

DO 

ZZNAMOEF 

DO 

ZZLITAB 

DO 

ZZRGTAB 

DO 

ZZCGC 

DO 

ZZERRTAB 

DO 

ZZDCTNY 

00 

ZZSUBTAB 

00 

ZZOPLGOGO 

DO 

ZZOPLEXEX 

00 

ZZOPLEXDIR 

00 

ZZOPLINE 

01 

ZZQOPUNCH 

0 
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//XOPEX 

// 

U 

n 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//♦ 

//• 

//* 


PROC 

CL=', '.011=' f • fCL2*'f 't 

CHKDSP  = DELETE,CHK!0=*  C£CHKID*,CHKSP»OfCHKST  = NEWf 
I SAM='DUMMY.FILF' ,ISAMI**DUMHY.FILE', is AM2« 'DUMMY. file*, 
JCBLIB=' FFS.JQBLIB* , 

LIB»'OUMMY.FILE' , LI Bl»' dummy. FILE ',1182=' OUMMY.FILE' , 
LIBDISP=SHR, 

NRMCSP»DELETE, 

PTFJOBL='PTF.JOBLIB'  , 

OCF='C£ODFILE' , GDI SP=P ASS, QP T» • 6C0R TF IL E* , 

RGN*100K, 

STG=NIPW, 

TDISP  = MOD,TRANS='tCTRANS'  , 

UCHK=NIPW, 

UISAM='(2314,P)', 

ULIB=2314,ULIBI  = 2314,ULIB2*23U, 

UQOF-NIPW,UORT=NIPH, 

UTRANSxNIPW, 

VISAM.,VISAM1«,VISAM2», 

VLIB=,VLIB1-,VLIB2«, 

VOOF»,VORT*, 

VCHK« , VTRANS* 


CHARLES  U.  HICKISCH 
DATE-MARCH  I,  1974 


MAJOR, USA  PROJ  C00E-763NIPS  BRANCH-431 


//♦ 

//OP  EXEC  PGM-OP,REGION-CRGN 
//STEPLIB  DD  OSN-CPTFJOflL,OISP=SHR 
//  DO  OSN-£JOBLIB,OISP-SHR 

//DATAFILE  DO  DSNAME-C IS AM, 01 S P-SHR, UNI T-CUI SAM, VCLUME-C VI S AM 
//OATAFILl  OD  DSNAME»t I S AMI , 01 SP-SHR , UNI T = tUI SAM , VOLUME-CVI  S AMI 
//0ATAFIL2  DD  OSNAME-C I SAM2, DI SP-SHR , UNI T=eui SAM ,VCLUME=eVI SAM2 
//DLIB  OD  0SNAME»eLIB.L,0ISP-£LlB0ISP,V0LUME-6VLIB,UNIT=eULIB 
//TLIB  OD  OSNAMF-CLrBl.L,DISP-SHR, V0LUME-£VLIBl,UNIT-£ULI6l 
//SOURCPPT  DO  SYS0UT-(£A,£CL) 

//PRINTER  DO  SYSnUT-(£A,£CL J 
//SYSOUT  DO  SYSOUT-(£A,£CL» 

//SYSPRINT  DO  SYS0UT-{£A,CCL) 

//SYSUOUMP  OD  SYS0UT-(£A,£CL1) 

//OPLINE  DO  SYSOUT-(CA,CCL2»,OC6-LRECL-133 

//OPIWCF  DO  UN1T-£STG, SPACE-ITRK, (2,1)1 ,DCB- ( BLKSI Z E-400, LRECL-00 , 

//  RECFM-FB) ,DSNAME-CCHKIO.A,OISP»(,£NRMDSP,£CHKOSP) 

//OPCOMREC  DO  UNIT-£STG,SPACE»(TRK,(l,l)), 

//  OISP-(,£NRMDSP,£CHKOSP),OSNAME-£ChKID.B 

//OPLGOGO  DD  UNTT-£STG,SPACE-(TPK, (20,11), 

//  DISP-(,CNRMDSP,£CHKDSP),DSNAME-£CHKIO.C 

//OPLEXEX  DO  UNIT-(CSTG,SEP-CPLG0GC),SPACE-(TRK,(20,1)), 

//  0ISP-(,£NRM0SP,£CHK0SP),0SNAME-£CHK10.0 

//OPLEXDIR  OD  UNlT-(eSTG, SEP- (OPLGOGO, OPLEXEX) I , SPAC E- ( TRK, ( 20, 1 ) ) , 

//  01SP-(,CNRMOSP,CCHKOSP),OSNAME-CCHKIO.E 

//OPPUNCH  DO  SYSOUT-CB 

//SLIB  OD  0SNAME-*.0CIB,0ISP-SHR,UNIT«£ULIB,V0LUME-£VLIB 
//  OD  DSNAME-*.TLIB,0ISP»SHR,UN1T-CULIBI,V0LUME-£VLIBI 
//  00  OSNAME-CLlB2.L,OISP«SHR,UNIT-CULIB2,VOLUME-eVLIB2 

//  DO  OSNAME-CJOBLIB,OISP-SHR 

//OOFILE  OD  OSNAME»£QOF,UNIT-£UODF,VOLUME-£VCOF,D1SP-(SHR,EODISP,KEEP) 
//ORTFILE  DO  DSNAME-CQRT ,UNIT-EUQRT, VOLUME-EVQRT ,01 SP- (SHR ,£QOISP, KEEP) 


OOOOOlOO 
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//CHECK DO  00  DSNAHE=CCHKIOf 01 SP»ICCHKST , CNPMDSP *eCHKOSP) fUNlT*CUCHKt 
//  VOLUME=£VCHK, SPACE* (C YU  • ( CCHKSP 1 1 1 > 

//STAT  DO  UNI T*eSTGtSPACe*(CYLt< 2t 1) ) 

//TRANST  DO  OSN=£TRANS, VOL*EVTRANS,UNIT»eUTRANS, 

//  01SP  = CTDISP,SPACE*(TRK,U 


00005600 
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00005800 

00005900 
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PROCEDURES 


//XOPSO 

// 

// 

n 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//♦ 

//♦ 

//* 


PROC  A*A,BxBtBSZFILE=,0SZFILl=iBSZFIL2», 

CL=*f •iCLl=’f • tCL2*' t • f 

I SAP=* DUMMY. FILE* , IS  AMI-* DUMMY. FILE • , I SAM2-* DUMMY. F 1 LE * 

JOBLIB=*FFS.JOBLIB* .JOBMAC-*  FFS.JCBMACRO*  t 

LAB-SLi 

LIB-*DUMMY.FILE*,LI81-*DUMMY.FILE*,LI62»'CUMMY.FILE*  » 
LIBDISP^SHR. 

PTFJOBL-*PTF.JOBLIB* ,PTFJOBM-*PTF.JOBMACRC*, 

RGN-lOOKt 

S AM- *OUMMY. FILE *,5 AMI- 'DUMMY. FILE  *fSAM2=*DUMMY. FILE* , 
SDISP=SHR,SOURCL= 'DUMMY. FI LE*,STG=NIPW, 
TOISP-MOD.TRANS-'SCTRANS* , 

UISAM=*(23U,P»*, 

ULI6-2314,ULI81=2314,ULI 82*2314, 

USAM=*<TAPE9, .DEFER)* ,US0URCL=2314, 

UTRANS-NIPH, 

VISAM-,VI SAMI-, VIS AM2-, 

VLIB-.VLIBl-, VLIB2-, 

VSAM=,VSAM1»,VSAM2-, 

VSOURCL-, VTPANS- 


CHARLES  W.  HICKISCH 
DATE-MARCH  1,  1974 


MAJOR, USA  PRCJ  C0DE-763NIPS  BaANCH-431 


//♦ 

//OP  EXEC  PGM-OP,REGION=CRGN 
//STEPLIB  DD  DSN=CPTFJOBL,OISP-SHR 
//  DD  DSN=6J0BLIB,D1SP-SHR 

//DATAFILE  00  OSNAME-C I S AM,0 ISP-SHR , UNI T-6UI SAM, VOLUME=£ VI S AM 
//DATAFILl  DD  DSNAME-£ I S AMI , DI SP-SHR, UNI T-tUI SAM , V0LUME-6VI S AMI 
//0ATAFIL2  DO  DSNAME-CI SAM2, D ISP-SHR , UNI T-&UI SAM , VOL UME-CVI SAM2 
//SAMFILE  DD  DSNAME-E SAM. S, DI SP-SHR , UNI T-CUSA M , VOLUME -CVS AM , 

//  LABEL-! ,CLAB), CCB-BLKSIZE-EBSZFILE 

//SAMFILEl  DD  DSNAME-E SAMI. S, 01 SP-SHR ,UNIT=CUSA M , VOLUME -CVS AMI , 

//  LABEL-! ,CLAB) ,OCB-BLKSIZE-CBSZFIL 1 

//SAMFILE2  DD  DSNAME-ESAM2. S, 01 SP-SHR , UN  I T-EU SA M , VOLUME- CVS AM2 , 

//  LABEL-! ,CLAB) ,DC8-BLKSIZE-£BSZFIL2 

//DLIB  DO  DSNAME-ELIB.L,DISP=ELIBOISP,VOLUME-EVLIB,LNIT=EULie 
//TLI6  DO  OSNAME-f LIBl.L,OIiP=SHR, VOCUME-EVLIBl.UNIT-CULIBl 
//SQURCPRT  DO  SYSOUT- ! EA , ECL ) 

//SOURCLIB  00  OISP-CSOISP,OSN-CSOURCL.L,VOL-CVSOUPCL,UNIT=EUSOURCL 
//SYSPRINT  DO  SYSOUT-!EA,ECL) ,DCB-!LRECL-133,BLKSIZE»665) 

//SYSOUT  00  SYSOUT- !CA, CCD 
//SYSUOUMP  DO  SYSOUT-!EA,ECLl) 

//SYSUTl  00  UNIT»CSTG,SPACE-!TRK,!200,.  0)) 

//SYSUT2  00  UNIT-! ESTG.SEP-SYSUTl)  ,SPAv E-ITRK, !200,20) ) 

//SYSUT3  00  UNIT-!ESTG,SEP-!SYSUT1,SYSUT2)),SPACE-!TPK,!200,20)) 
//SYSPUNCH  00  UNIT-CSTG,SPACE»!TPK,!5C,10I), 


0CB-!RECFM«FB,LRECL-e0,BLKSIZE-4O0,BUFN0-5) 

DO  OSN-EPTFJOBM,OISP-SHP 
00  DSN-CJOBMACPO.OISP-SHR 

DD  UNIT-CSTG,SPACE»!TRK,!50,25,5) ) , DC B-SY SI .LTNKLI 0, 
LABEL-PETPO-0000 

//SYSTPRT  DD  SYSOUT- !E A, ECL ) , CCB- ! RECFM-F B, LRECL-12 I , BLKS IZE-605 ) 
//OPIWCF  00  UNIT-CSTG, SPACE- ! TRK , !2, 1) I , DCB-! BLKS I ZE-400, LR ECL-80, 
OECFM-FB) 

00  UNIT-CSTG, SPACF-!TRK,!10, 2)1 


// 

//SYSLIB 

// 

//syslmod 

// 


// 

//OPSTST 


//OPCREATE  DO  UN  I T- CSTG, SPACE- ! TRK , ! I , I ) ) 


4- 
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PROCEDURES 


( 


//OPCOMREC  DO  UNIT=eSTG,SPACE»(TRK, (1,111 

//INSTS  DO  UNIT*tSTG,SPACE=(TRK,{50,5) ) 

//LCF  DD  UNlT=CSTG,SPACE=(TRK,(lO,5n 

//LCT  DD  UNIT=tSTG,SPACE=(TRK,( 10,51  ) 

//LITSTR  DD  UNIT=CSTG,SPACE=(TRK,(50,5n 

//NAMDEF  DO  DSNAME=*. SYSUT 1 , VOLUME=REF-*. SYSUT 1 , DI SP  = ( OLD, PASS  I 

//LITAB  DO  OSNAME=*.SYSUT2,VOLUME*REF**.SYSUT2,DTSP=(CLO,PASS) 

//RGTAB  DO  DSNAME=*.SYSUT3, VOLUME*REF»*.SYSUT3,DIS'>=(OLO,PASS) 

//CGC  DD  UNIT»CSTG,SPACE=tTRK, (1,1)1 

//ERPTAB  DD  UN  IT- ESTG, SP ACE- ( TR K , ( 8 , 5 ) ) 

//SUBTAB  DD  UN IT-ESTG, S PACE- (TRK , ( 1 , 1) I 

//OCTNY  DD  DS NAHF-*. SYSPUNCH, VOLUME-REF-*. SYSPUNCH, 01 SP-( OLD, PASS) 
//OPLGOGO  DD  CSNAME-*.SYSUT1, VOLUME-REF-*. SYSUT1,D ISP- (OLD, PASS) 
//OPLEXEX  OD  DSNAMF=*.SYSUT2, VOLUME-REF-*. SYSUT2, 01 SP=(OLD,P ASS) 
//OPLEXOIR  OD  CSNAME-*. SYSUT3, VOLUME-REF-*. SYSUT 3, 01 SP=( OLD, PASS) 
//OPLINE  DD  SYS0UT-(6A,£CL2),DCB=LRECL-133 
//OPPUNCH  DO  SYSOUT-CB 

//SLIB  DO  DSN AME-*. SYSLMOD, volume-ref-*. SYSLMOO, 01 SP-(CLD, PASS) 

//  OD  DSMAME-*.DLIB,DTSP-SHR,UNIT=EULIB,VOLUME=CVLIB 
//  OD  0SNAME-*.TLIB,0IS»-SHR,UNIT-6ULIB1,VCLUME=CVLIB1 
//  DD  0SNAME-£LIB2.L,DISP-SHR,UN!T-eULTB2,VCLUME=EVLIB2 
//  DO  OSNAME=6JOBLIB,OISP-SHR 

//SYSAIN  DO  DSNAME-*. LITSTR, VOLUME-REF-*. LITSTR, DISP=(CLD, PASS)  , 

//  DCB=(RECFM-FB,LRECL-80,BLKSIZE»400,BUFNO-5) 

//  DD  DSNAME-*. IMSTS,  VOLUME-REF-*. INSTS, OISP-(OLO, PASS) , 

//  DCB=(RECFM-FB,LRECL-80,BLKSIZE-400,8UFNO=5) 

//SYSLIN  DD  OSNAME-*. LCF, VOLUME-REF-*. LCF, DISP-(CLO, PASS) 

//SYSTIN  DO  DSNAME-*. LCT, VOLUME-REF-*. LCT, OISP=(CLD, PASS) 

//LQADR  OD  DSNAME-*.SYSPUNCH, VOLUME-REF-*. SYSPUNCH,DISP»(OLD, PASS) , 
//  DC0-(RECFM=FB,LRECL=8O,BLKSIZE-4OO) 

//STAT  DD  DSN-*. INSTS, VOL-REF-*. INSTS, OISP-(OLD, PASS) 

//TPANST  no  DSN-ETRANS,VOL-CVTRANS,UNIT-eUTRANS, 

//  DISP=tTOISP,SPACE-(TRK,l) 


00005500 
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00006400 

00006500 

00006600 

00006700 

00006800 

00006900 

00007000 
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PROCEDURES 


//XOPSDEX  PROC  A=A,B=B,BSZFTLE=,BSZFILl=tBSZFIL2», 

//  CL»',',CLl=*.*tCL2»*,*t 

//  CHK0SP*0ELETE,CHKID«*6£CHKID*,CHKSP=0.CHKST=NEW, 

//  I SA^•- •DUMMY.FILE', I SAMI-' OUMMY.fi LE* , I SAM2»*DUMNY.FILE* 

//  JCBLIB-'FFS.JOBLIB' , 

//  LAB-SL, 

//  LIB='OUMMY.FILE' f LIB1='DUMMY.FILE',LIB2»'DUMMY.FILE' , 

//  LIBDISP-SHR, 

//  NPMCSP-OELETE, 

//  PTFJOBL-'PTF.JOBLIB', 

//  RGN-IOOK, 

//  SAM-' OUMMY.FILE' tS AM1« • DUMMY .F ILE SAM2-' DUMMY.F IL E • t 

//  STG-NIPW, 

//  TOISP-MQD.TRANS-'tCTRANS' , 

//  UCHK-NIPW, 

//  UISAM-'Izai'i.P) 

//  UL I B= 2314, UL T B 1=231 A, ULI 82=2314, 

//  USAM='(TAPE9,, DEFER)', 

II  UTRANS-NIPW, 

H V1SAM=,vISAMI-,VISAM2=, 

//  VLIB=,VLIBI-, VLIB2-, 

//  VSAM»,VSAM1-,VSAM2-, 

//  VCHK=,VTRANS= 

//♦ 

//•  CHARLES  W.  HICKTSCH  MAJOR, USA  PRCJ  C0DE-763NIPS  BRANCH-431 

//♦  DATE-MARCH  I,  1974 

//* 

//OP  EXEC  PGM=OP,REGION=CRGN 
//STEPLIB  OD  DSN-CPTFJOBL,DISP=SHP 
//  OD  0SN-tJO8LIB,0ISP=SHR 

//DATAFILE  OD  DSNAME-CI S AM ,D1 SP=SHR,UM T-6UI SAM, VCLUME-EVI SAM 
//DATAFILl  DO  DSNAME-CI S AMI , DI SP-SHP , UNI T-CUI SAM, VOLUME-GVI SAMI 
//DATAFIL2  DO  OSNAME=t I S AM2, 01 SP-SHR , UNI T-CUI SAM , VOLUME=£VI SAM2 
//SAMFILE  OD  DSNAME=GSAM.S,DISP»SHR,UNIT«CUSAM,VOLUME=CVSAM, 

//  LABEL-!  ,CLAB) ,OCB=BLKSIZE-CBSZFILE 

//SAMFILEl  DO  OSNAME-C SAMI. S, DISP-SHR ,UNIT=CUSAM , VOLUME-CVSAMl , 

//  LABEL-! ,CLAB) ,DCB-BLKSIZE=CBSZFIL1 

//SAMF1LE2  DO  DSNAME-CSAM2. S, DI SP-SHR ,UNIT=eUSA P ,V0LUME=eVSAM2 , 

//  LABEL-!  ,CLAB),0CB=BLKSIZE=CBSZFIL2 

//DLIB  OD  OSNAME-CLlB.L,DISP«eLIBOISP,VOLUME-CVLIB,UNIT»eULIB 

//TLIB  DD  DSNAME-CLIBl.L, DISP-SHR, V0LUME-6VLIB1,UNIT-CULIB1 

//SOURCPRT  OD  SYSOUT=!CA,CCLI 

//PRINTER  DO  SYSOUT-!CA,eCL) 

//SYSOUT  DO  SYSOUT=!CA,CCLI 

//SYSPRINT  DD  SYSOUT-! CA, CCL ) ,DCB»LRECL-133 

//SYSUOUMP  DO  SYSOUT-!eA,GCH) 

//OPLINE  DD  SYS0UT*!CA,CCL2),DCB-LRECL-133 

//OPIWCF  DD  UNIT-CSTG,SPACE»!TRK,!2,l) ) , DCfi- ! BLKSI ZE-400, LRECL-80 , 

//  RECFM-FB),OSNAME-CCHKIO.A,DISP-! ,CNRMDSP,CCHKDSPI 

//OPCCMREC  DO  UNIT-CSTG,SPACE=(TRK,(1,1)), 

//  DISP-!,CNRMOSP,CCHKOSPI,DSNAME-CCHKID.B 

//OPLGOGO  DO  UNIT-CSTG,SPACE-(TRK,!20,1>), 

//  OISP-!,CNRMDSP,CCHKOSP),DSNAME-CCHKID.C 

//OPLEXEX  DD  UNIT-!CSTG,SEP-0PLC0G0),SP4CE»!TRK,!20,1)) , 

//  DISP-! ,CNRMDSP,CCHKOSP),DSNAME-GChKID.D 

//OPLEXDIR  DD  UNIT-! CSTG, SEP-I CPLGOGO, OPLEXEX) ) , SPACE- ! TRK, I 20, 1 ) ) , 

//  OISP-! ,CNRMOSP,CCHKOSP),OSNAME-CCHKlO.E 


00000100 
00000200 
00000300 
, 00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00000910 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00002810 
00002900 
00003000 
00003100 
X00003200 
00003300 
X00003400 
00003500 
*00003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
*00004600 
00004700 
X00004800 
00004900 
X00005000 
00005100 
X00005200 
00005300 
X00005400 
00005500 
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//OPPUNCH  DD  SYSOUT«£B 

//SLIB  DD  DSNAME=*.DLIB,DISP*SHR,UNIT-£UtlBfV0LUHE=6VLIB 
//  DD  0SNAME=*.TL1B,DISP=SHR,UNIT»CUUIB1,V0LUME=CVLIBI 
//  DD  DSNAME*£LIB2.LfDISP»SHR,UNIT=6UIB2,V0LUME=CVLIB2 
//  DD  0SNAME=CJ0BLI6,DISP»SHR 

//CHECKDD  DD  DSN AME= 6CHK IDtOI SP= ( CCHKST , 6NRMDSP f CCHKDSP) f UNI T*GUCHK , 
//  VOLUME=£VCHK,SPACE«<CYLt(£CHKSPf 1)) 

//STAT  DD  UNIT»CSTG,SPACE=tCYLf(2f  U) 

//TRANST  DD  DSN=£TRANStVOL*tVTRANStUNIT=£UTRANS, 

//  DISP=£TOISP,SPACE=( TRK, II 


00005600 

'00005700 

00005800 

00005900 

00006000 

00006100 

00006200 

00006300 

00006400 

00006500 
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//XORTODF  PROC  A = A, BSZ NEWF= lOOA, CL  = ' . • f CL  1“ * , * . DEN* t 
//  JOBLTB='FFS.JOBLIB' , 

//  LAB=,0DF='E6Q0FILE',Q0ISP»P4SSf 

//  PTFJOBL=* PTF.JOBLIB* , 

//  ORT  = »EtORTFILE*  t RGN«60K,SAP*»0UMMV* , TRCH= , 

//  UQ0F=N1PW,U0'’T  = NIPW,USAM»*  (TAPEo,  .DEFER)  • f 

//  VOOF=,VORT=, VSAM= 

It* 

ft*  CHARLES  W.  HICKISCH  MAJOR. USA  PPCJ  CCDE=763NIPS  BRANCH*«31 
//♦  DATE=MARCH  1.  197^ 

//* 

//QRTODF  EXEC  PGM=UTORTOOF .REG ION=CRGN 
//STEPLTB  DO  OSN=tPTFjnBL . 01 SP=SHR 
//  OD  OSN=£JOBLIB.DISP*SHR 

//SYSPRINT  DO  SYSOUT-(tA.tCL) 

//SYSUOUMP  DO  SYSOUT=ieA.£CLl) 

//ORTFILE  do  DSNAME=CORT.UNIT*£UORT.VOLUME*CvCRT.DISP»(SHR.C001SP.KEEP) 
//OOFILE  DO  OSNAME=eODF. UNI T=CU0DF. V0LUME=CVQ0F. DI SP= ( SHR.EODISP. KEEP) 
//SAMFILE  00  DSNAME=6SAM.S.UNIT=tUSAM.V0LUME=evSAM.DISP=I .KEEP) . 

//  OCB=(  TRTCH=tTRCH.OEN*tDEN.BLKSIZE  = £BSZNEWF) . 

//  LABEL*! .ELAB) 


00000 100 
00000200 
00000300 
00000310 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001210 
00001300 
00001400 
00001500 
00001600 
*00001700 
00001600 
00001900 
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//XOUIP  PROC 

A=A, 

00000100 

// 

CL*',*,CL l=*,',CL2«*i*, 

00000200 

// 

ISAH1=»DUMMY.FILE* , I SAP2-* DUMMY.F ILE* , 

00000300 

// 

JOBLIB='FFS.JOBLIB* , 

00000400 

// 

LIB  = 'DUMMY.FILE*  , LI  Bl>=* DUMPY. FILE', 

00000500 

// 

PTFJOBL*' PTF.JOBLIB' , 

00000510 

// 

QRT='ECQRTFILE'  , 

00000600 

// 

ODF='££OOFILE' , CD1SP*PASS, 

00000700 

// 

RGN=92K, SDISP*SHR, 

00000800 

// 

SOURCL='OUMMY.FILF'  , 

00000900 

// 

STG=NIPW,TDISP*MOD,TPANS»'eGTRANS', 

00001000 

// 

UIS AMI* • (2314,P» • ,UISAM2=' (2314, P»', 

00001100 

// 

ULIB*2314,ULIB 1*2314, 

00001200 

n 

UODF=NIPW, 

00001300 

// 

UORT*NIPW, 

00001400 

// 

US0URCL=2314,UTR ANS«NI  PW, 

00001500 

// 

VISAM1*,V1SAM2=, 

00001600 

// 

VLIB=,VLIB1-, 

00001700 

// 

VODF=, 

00001800 

// 

VQRT-, 

00001900 

// 

VSOURCL»,VTRANS= 

00002000 

//* 

00002100 

//*  CHARLES 

W.  HICKISCH  MAJOR, USA  PRCJ  C0DE=763NIPS  8RANCH-431 

00002200 

//♦  DATE= 

MARCH  1,  1974 

00002300 

//♦ 

00002400 

//QUIP  EXEC 

PGM=lPBASE,REGION=tBGN 

00002500 

//STEPLIB 

DO 

OSN=EPTFJOBL,DISP«SHR 

00002600 

// 

DO 

DSN*£JOBLIB,DISP=SHR 

00002610 

//SYSUTl  DO 

SPACE=(TRK ,(50,10)), UNI T=£STG 

00002700 

//SYSUT2  DO 

SPACE=(TRK, ( 1,1) ),UNIT=£STG 

00002800 

//SYSUT3  OD 

SPACE=(TRK,( 10, 10) ) ,UNIT»( £STG, SEP=SYSUT 1) 

00002900 

//SLIB 

DO  OSNAME=£LIB.L,UNIT=£ULIB,VOLUME=CVLIB,DISP=SHR 

00003000 

// 

00  DSNAME=£LIBl.L,UNIT=£ULIBl,VCLUME*£VLIBl,DISP=SHR 

00003100 

// 

00  DSNAME=£J0BLIB,D1SP=SHR 

00003200 

//ODFILF  00 

1 DSNAME*tODF,UNIT=6UODF,VOLUME=6VCDF,OI SP=( SHR,tCCISP,KEEP) 

00003300 

//ORTFILE  DO 

OSNAME=£ORT,UNIT*EUORT, VOLUME=£VORT,DISP*(SHB,EQDISP,XEEP) 

00003400 

//DATAFIL 1 

00 

DSN*EISAM1,UNTT=EUISAMI,V0L*£VISAM1,DISP=SHR 

00003500 

//0ATAFIL2 

00 

OSN*EISAM2,UNIT*EUISAM2,VOL=£VISAM2,DISP=SHR 

00003600 

//SOURCLIB 

DO  DISP*esniSP,DSN»6S0URCL.L.VGL=eVS0UPCL,UNIT=CUS0URCL 

00003700 

//SOURCPRT 

00 

SYSOUT*(EA,ECL) 

00003800 

//QUERYQUE 

DO  SPACE=(TRK,<l,l)),UNIT»£STG 

00003900 

//QUERYLOG 

00 

SYSOUT*(£A,£CL) , SPACE* ( TRK , (1 , 1 ) ) 

00004000 

//SYSUDUMP 

00 

SYSOUT»(£A,CCLl ) 

00004100 

//SYSPRINT 

DO 

SYS0UT=(£A,£CL2) 

00004200 

//STAT  00 

DSN=*.SYSUTl,VOL=PEF»*. SYSUTl, 01 SP*(OLOt PASS) 

00004300 

//TRANST  00 

DSN=ETPANS,VQL=6VTP.ANS,UNIT*CUTRANS,0ISP»eTDISP, 

00004400 

// 

SPACE»(TRK,1  ) 

00004500 
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//XOUI PSD 

PROC 

A»A,BSZFILE=, 

00000100 

// 

CL=', •tCLl=',*«CL2**t'f 

00000200 

// 

ISAM=*OUMMY.FILE'  . 

00000300 

// 

I SAMI* t dummy. file* ,1SAM2»' DUMMY. FILE*  . 

00000400 

// 

J0BLIB**FFS.J08LIB*  . 

00000300 

// 

LAB=SL, 

00000600 

// 

L IB«* DUMMY. F*LE' ,LI B l» • DUMMY .F ILE  • , 

00000700 

// 

PTFJ08L-*  PTF.JOBLIB*  . 

00000710 

// 

OOFSP=*  (5,  D*  , 

OOOOOflOO 

// 

0RTSP=*(2,1)', 

00000900 

// 

RGN=92K, 

00001000 

// 

S AM«*  dummy. FILE*,  SOI  SP»SHR, 

00001100 

// 

S0RTSP=*(2,l)*  , 

00001200 

// 

SOURCL**OUMMY.FILF*  , 

00001300 

// 

STG=NIPW,T0ISP»M0D,TRANS=*££TRANS*, 

00001400 

// 

UISAM.*(231A,P)*, 

00001500 

// 

UrSAMl.'f 231A,P>*,UISAM2=* (2314,P)*, 

00001600 

// 

ULIB=231A,ULIBI=2319, 

00001700 

II 

U SAM=*(TAPE9,, DEFER)* , 

00001800 

n 

US0URCL=2314,'JTRANS»NIPW, 

00001900 

n 

VISAM=, 

00002000 

n 

VISAMl.,VISAM2=, 

00002100 

n 

VLIB=,VLI81*, 

00002200 

n 

VSAM=, 

00002300 

u 

VSOURCL-, VTRANS=, 

00002400 

n 

XINDEX-*DUMMY.FILE*  , 

00002500 

u 

XUNIT*23l^,XV0L= 

00002600 

n* 

00002700 

//♦  CHARLES 

W.  HICKISCH  MAJOR, USA  PRCJ  C0DE«763NIPS  BPANCH=A31 

OOOO2BO0 

//♦  DATE 

• MARCH  1,  A97<» 

00002900, 

//♦ 

00003000 

//CUIP  EXEC  PGM=1PBASE,REGI0N«CRGN 

00003100 

//STEPLIB 

DO 

DSN-GPTFJOBL,DISP*SHR 

00003200 

// 

DO 

DSN*£JOBLIB,DISP»SHR 

00003210 

//SVSUTl 

DD 

SPACE*(TRK,I50, 10) ) , UNI T*£ STG 

00003300 

//SYSUT2 

DO 

SPACE*(TRK, ( 1,1) ) ,UNIT*£STG 

00003400 

//SYSUT3 

DO 

SPACE* (TRK ,( 10,10) ) , UNI T*( £ STG , SEP«SYSUT 1 ) 

00003500 

//SYSUT4 

DD 

SPACE*(CYL,(0,0) ),UNIT*£STG 

00003600 

//SLIB 

DD  0SNAME*CLIB.L,UNIT*6ULIBtV0LUME=eVLlB.CISP*SHR 

00003700 

// 

DD  0SNAME«£LIBl.LfUNIT«6ULIBl,VCLUPE*eVLIBl,DISP»SHR 

00003800 

// 

DD  DSNAME»GJOBLIBtDISP»SHR 

00003900 

//DATAFILE 

DD  DISP»SHR,OSNAME*CISAM,LINIT»CUISAM,VOLUHE*CVISAM 

00004000 

//DATAFILI 

DD 

0SN=£1SAM1,UNIT»EUISAM1 ,V0L*£VISAM1,DISP*SHP 

00004100 

//0ATAFIL2 

DD 

0SN»£ISAM2,UNIT»£UISAM2,V0L»£VISAM2,0ISP«SHR 

00004200 

//SAMFILE 

DD  DISP«SHR,DSNAME«ESAP.StUNIT*CUSAP,VOLUME»£VSAP, 

*00004300 

U 

LABEL*!  ,£LAB), CCB-(RECFM»VB, LRECL* 1000, BLKSI2E-EBS2F ILE) 

00004400 

//QUERYLOG 

DD 

SY  SOUT*  ( £ A , GCL  ) , SP  ACE*  ( TRK , ( 1 , 1 ) ) 

00004500 

//SOURCLIB 

DD 

DISP-£SDISP,OSN*£SOURCL.L,VOL*CVSCURCL,UNIT*£USOURCL 

00004600 

//SOURCPRT 

DD 

SYSOUT*(£A,£CL) 

00004700 

//SYSUDUMP 

DD 

SYSnUT«(£A,£CCl) 

00004800 

//SYSPRINT 

DO 

SYS0UT*(GA,CCL2) 

00004900 

//OUERYOUE 

DO  SPACE»(TRK,(l,l))tUNIT-£STG 

00005000 

//PB 

DO 

UNIT*C STG, SPACE*! CYL.EQDFSP) 

00005100 

//KEY 

DO 

UNI T*£STG, SPACE* !CYL,CCPTSP) 

00005200 

//SORTWKOl 

DO 

UNIT-ESTG, SPACE* !CYL,CSCRTSP) 

00005300 

//S0RTWK02 

DO 

UNIT*£STG, SPACE* !CYL,£SORTSP) 

00005400 

//S0RTMK03 

DD 

UNI T*£STG, SPACE* !CYL,£SORTSP) 

00005500 
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//SaPTWK04  OD  UNIT»tSTG,SPACE»(CYL»tSCRTSP)  00005600 
//STAT  00  0SN**.SYSUT1,V0L»REF«*.SYSUTI,0ISP»<0L0,PASS)  00005700 
//TRANST  DO  DSN« ETRANS t VOL-EVTR ANS t UNI T>«EUTR ANS, 01 SP-STOI SP , 00005800 
//  SPACE»(TRK,l|  00005900 
//XINDEX  00  DSN«EXINDEX.X,UNIT«EXUNIT,VCL»EXVCLiDlSP»SHR  00006000 
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//XRASP  PROC  A»A,BSZFILE»fBSZFILl»f BSZFIL2-, 

//  CL-' , ' tCL I*' I SAM- 'DUMPY. FILE* , 1 S AMI* ' DUMMY .F ILE ' , 

//  I SAM2*' DUMMY.FILE' , JOBLIB-'FFS.JOBLIB' , 

//  JOBMAC-'FFS. JOBHACRO' , L AB-SL i L I B-' DUMMY . FIL E ' , 

//  L 1801 SP-SHR, LI  81-' dummy. F IL E' # LI B2- 'DUMMY.FILE ' , 

//  PrFJOBL-'PTF.JOBLlB* ,PTF JOBM*' PTF. JOBMACRO' , 

//  OOF-'CtOOFILE',aDFSP-'(50f 10»' ,COISP-PASS,ORT»'£tQRTFILE' 

//  QRTSP-' (10,10) ' ,RGN-100K, SAM*' DUMMY.FILE' , 

//  SAMI*' DUMMY.FILE' ,SAM2*' DUMMY. FILE* ,SDISP-SHR, SORTSP-20, 

//  SOURCL-'DUMMY.FILE'  ,STG=NIPW,TDISP-MOD,  TRANS-'CCTP, ANS*  , 

//  UISAM-'  (2314,P)'  ,ULIB-23lA,ULIBl=23l'i,ULIB2-23l4, 

//  UODF»NTPW,UORT=NIPW,USAM»'( TAPER, .DEFER ) • ,US0URCL=2314 , 

//  UTRANS-NIPW, VISAM-,VISAM1-,VISAM2*, VLIB-,VLIB1=,VL1B2», 

//  VOOF=,VORT»,VSAM*,VSAMl*,VSAM2*,VSCURCL-,VTRANS-, 

//  XDI SP*SHR, XI NDEX*' dummy. FILE', X INDEX  1-' DUMMY. FILE' , 

//  XINDEX2-' DUMMY.FILE' ,XUN1T-231R  ,XVOL- , XVOL 1 = , X VOLZ* 

//♦ 

//*  CHARLES  H.  HICKISCH  MAJOR, USA  PRCJ  C0DE=763NIPS  BRANCH-431 

//*  DATE-MARCH  1,  1974 

//♦ 

//RASP  EXEC  PGM»RSEXEC,REG10N*tRGN 
//STEPLIB  DO  OISP«SHR,OSN-CPTFJOBL 
//  OD  OISP-SHR,OSN-GJOBLIB 

//DATAFILE  DO  DSNAME*G I S AM, DI SP=SHR , UNI T-6UI SAM, VCLUME-G VI S AM 
//OATAFILl  DO  DSNAME-CI SAMI , DI SP-SHR , UNI T-CUI SAM ,VOLUME*CVI S AMI 
//DATAFIL2  DD  OSNAME-C I S AM2, 01 SP*SHP , UNI T-CUI SAM , VOLUME-SVI SAM2 
//SAMFILE  DO  DSNAME*CSAM.S,0ISP=SHR,UNIT=CUSAM,V0LUME-£VSAM, 

//  LABEL-( ,CLAB) .DCB-BLKSIZE-CBSZFILE 

//SAMFILEl  OD  DSNAME-C SAM  1. S, 01 SP-SHR , UNI T-CUSAM .VOLUME- CVS AMI , 

//  LABEL-! ,CLAB),DCB»BLKSIZE-CBSZFILl 

//SAMFILE2  DO  OSNAME-C SAM2. S, 01 SP-SHR , UNI T-CUSA M, VOLUME -CVS AM2 , 

//  LABEL*! ,CLAB),DCB*BLKSIZE*CBSZFIL2 

//QOFILE  00  OSNAME-eQOF,UNIT»!£UODF,SEP»DATAFILE), VCLUME-CVODF, 

//  SPACE-!CYL,CQDFSP),DISP»! .CQOISP, DELETE) 

//SORTOUT  OD  DSNAME-CORT.UNIT-! CU0RT,SEP-!DATAFILE,00FILE) ) , 

//  Vr)LUME*CVQRT,SPACE-!CYL,CQRTSP),DlSP*! , cool  SP,  DELETE ) , 

//  0CB*!RECFM*VB,LRECL*101 I, BLK SIZE-10 15) 


//  LABEL*! ,CLAB),DCB*BLKSIZE-CBSZFIL2 

//QOFILE  00  OSNAME-CQOF.UNIT-ICUODF.SEP-DATAFILE), VCLUME-CVODF, 

//  SPACE-!CYL,CQDFSP),DISP»! .CQOISP, DELETE) 

//SORTOUT  OD  DSNAME-CORT.UNIT-! CU0RT,SEP-!DATAFILE, QOFILE) ) , 

//  V0LUME*CVQRT,SPACE-!CYL,CQRTSP),D1SP*! .CQOISP, DELETE ) , 

//  0CB*!RECFM*VB,LRECL*1011, BLK SIZE-10 15) 

//SORTIN  DO  OSNAME-*. SORTOUT, VOLUME-REF**. SORTOUT, 01 SP- (.OLD, PASS) 
//SORTWKOl  DO  SPACE-!CYL,!CSORTSP) , .CONTI G) ,UN1T-!CSTG, SEP-SORTIN) 
//SORTWK02  DO  S PACE*! CYL , !C SORTSP) , , CONTIG ) , 

//  UNIT-!CSTG,SEP-S0RTWK01) ,SEP*SCPTWK01 

//S0RTWK03  DO  SPACE-! CYL  ,! CSORTSP ),  .CONTIG) , 

//  UNIT-!CSTG, SEP-S0RTWK02) ,SEP-S0PTMK02 

//S0RTHK04  DO  SPACE-! CYL , (CSORTSP) , .CONTIG) , 

//  UNIT-!CSTG,SEP-! SORTWK01,SORTMKO3)) , 

//  SEP-! SORTWKOl,SORTWK03) 

//S0PTWK05  DO  SPACE-!CYL, (CSORTSP)  , .CONTIG), 

//  UNIT-!CSTG,SEP-!SORTNK02,SORTWK04)) , 

//  SEP-! SORTWKO2rSORTWK04) 

//S0RTWK06  DO  SPACE-! CYL ,! CSORTSP ),, CONTI G) , 

//  UNIT-!CSTG,SEP-! SORTWKOl , SORTWK03 , SOPTWK05) ) , 

//  SEP-!S0RTWK01, S0BTWK03 ,S0RTWK05) 

//SYSLMOD  DO  UNIT-CSTG,SPACE-!TRK,!40,20,20)),DCB-SYS1.L1NKLIB, 

//  LABEL-EXPOT-66366 

//OLTB  00  OSNAME-CLIB.L,OISP-CLIBOISP,VOLUME-CVL1B,UMT-CULIB 
//TLIB  DO  DSNAME-CLIB1.L,DISP-SHR,V0LUME-CVL1B1,UNIT-CUL1B1 
//SLIB  00  OSNAME-*. SYSLM00,0ISP-!0L0, PASS) , VOLUME-REF-*. SYSLMOO 


OOOOOlOO 
00000200 
00000300 
00000400 
00000500 
00000510 
, 00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002110 
00002200 
00002300 
00002400 
X00002500 
00002600 
X00002700 
00002800 
♦00002900 
00003000 
X00003100 
00003200 
X00003300 
X00003400 
00003500 
00003600 
00003700 
X00003800 
00003900 
X00004000 
00004100 
X00004200 
X00004300 
00004400 
X00004500 
X00004600 
00004700 
xoooo4aoo 
X00004900 
00005000 
X00005100 
00005200 
00005300 
00005400 
00005500 
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H DO  DSNAME«*.OLIB,DISP*SHR,UNIT*CULIB,VOLUNE*CVLIB 

//  OD  OSNAME»*.TLIBtDISP»SHR,UNIT«6ULIBlfVOLUME«6VLlBl 

//  DD  DSNAME*eLlB2.L,DISP>:SHR,UNIT*CULlB2,VCLUNE*6VLI62 

//  DD  DSNAME-CJOBLIB,DISP-SHR 

//SORTLIB  DD  DI SP*SHR, DSNANF*SYS 1. SCRTLI B 

//SYSLIB  OD  DISP-SHR.OSN-EPTFJOBH 

//  DD  D1SP=SHR, DSN*£JOBMAC 

//  OD  01SP*SHR,0SNAME»SYS1.NACLIB 

//DPUNCH  DD  OSNAME**. S0RTWK04 tV0LUME*REF**.S0RTHK04fDlSP*( OLD t PASS) 
//SYSUTl  DD  DSNAME**.SORTMK01,VOLUME»REF»*.SORTWKOl.DISP=(OLDfPASS) 
//SYSUT2  DD  DSNAME»*.SORTMK05,VOLUNE-PEF«*.SCRTWK05,DISP»( OLD, PASS) 
//STEREO  DD  DSNAME**. S0RTWK06 , VOLUME»REF»*. S0RTWK06 i 01 SP« (OLD,PASS ) 
//STROUTOO  DO  UNIT-C STG, SPACE= I TRK , ( 50. 20) ) 

//SYSUT3  DO  DSNAME**.SORTWK06,VOtUME-PEF«*.SORTWK06.DISP*(OLD,PASSI  , 
//  OCB»<BLKSIZE»80,LRECL«80) 

//ASSEMIN  DO  UNIT»CSTG,SPACE-(TRK,(50.5)),0CB»BLKSIZE»A00, 

//  DISP*(NOD, DELETE) 

//RSIPOS  DD  UNIT*CSTG,SPACE*(TRK, (3, 1, 1) ) 

//NAMETAB  DD  DSN AME=*. ASSEMIN , VOLUME-REF-*. ASSEM IN , D I SP« I OLD, PASS ) 
//SOURCPRT  DD  SYSCUT- ( CA .ECL ) 

//SOURCLIB  OD  DISP-ESDISP,DSN-ESOURCL.L,VOL»EVSCURCL,UNIT-EUSOURCL 
//SYSPRINT  DO  SYSOUT-(EA,ECL) 

//SYSOUT  DO  SYSPUT-(£A,ECL) 

//SYSUOUMP  DO  SYSOUT-IEA.ECLl) 

//STAT  DD  OSN=*. ASSEMIN, VOL-REF-*. ASSEMIN, DISP»(OLD, PASS) 

//TRANST  DD  OSN-ETRANS , VOL-EVTR ANS.UNI T-EUTR ANS , DI SP-ETO I SP, 

//  SPACE=(TPK,(1)) 

//XINOEX  OD  DSN-EXINDEX. X.VOL-EXVOL, UNIT-EXUNIT, DISP-EXOISP 
//XINDEXl  DD  DSN-EX1NDEX1.X,V0L-EXVCL1,UNIT»EXUN1T,DISP-EXD1SP 
//XIN0EX2  DO  DSN=EXIN0EX2.X,V0L»£XV0L2, UNIT-EXUNIT, OISP-EXDISP 
//PRINTER  DD  SYSOUT- ( E A, ECL ) 

//SYSOUMMY  DO  DUMMY 


00005600 

00005700 

00005800 

00005900 

00006000 

00006100 

00006110 

00006200 

00006300 

00006400 

00006500 

00006600 

00006700 

00006800 

00006900 

C00007000 

00007100 

00007200 

00007300 

00007400 

00007500 

00007600 

00007700 

00007800 

00007900 

00008000 

00008100 

00008200 

00008300 

00008400 

00008500 

00008600 
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cai-1 


NIPS  360  FFS 


PROCEDUPES 


//XSP 

// 

// 

// 

// 

// 

// 

// 

// 


PROC  A>A,BLKSIZE-560tBSZFILE>.eSZNEWF>, 
CL»'iSCLl-*.'  ,0EN*,ISAH»'0UMMY.FILE'  , 
JCBLIB**FFS.JOBLIB*  ,LA6«SLfLIB»‘OL'MMV.FTLE' , 
N BRBLK-ZOOfRGN-lOOK, SAM*' DUMMY. FILE • , 
PTFJOBL-'PTF.JOBLIB*. 

SAMOUT*' DUMMY, • ,S0PTSP»10, STG«NIPM, TPCH», 

UI  SAM-231  4, UL I 8»231«,USAM»MTAPE9,  .OFFER)  • , 
VISAM»,VLIB-,VSAM-,VSMOUT-,XDTSP«CLO, 

X INDEX- ‘DUMMY. FILE* ,XUNIT-23 14, XVCL « 


Z/********************************* ****4*44 *«#*«**«**« *<******•******«** 


//444 

//444  THIS  PROC  IS  USED  TO  GENERATE  OR  UPDATE  A nTSK  RESIDENT 
//444  index  data  set  based  on  the  disk  resident  ISAM  DATA  FILE. 
//444 

//STEPNAME  EXEC  XSP , I S AM- A A A AAA A , VI  SAM- • SEO-XXXXXX • , 
XVOL-' SER»YYYYYY‘ ,XDISP-(BBB1 ,NBRBLK-D0DD 


//444 

//444 

//444 

//4 

//♦ 

//444 


4 

4 

4 

4 

4 

4 

4 


CHARLES  W.  HICKISCH 
DATE-MARCH  1,  1974 


MAJOR, USA  PRCJ  CCDE-763NIPS  BRANCH-431 


// 44444444444444444444 4444444 444444444444444444444444444444444444444444 
//4  44 


//UTXSP 

EXEC  PGR 

i«UTNDXSPC,REGION-CRGN 

//STEPLIB 

OD 

OISP- 

SHR.DSN-EPTFJOBL 

// 

DO 

DISP- 

SHR.OSN-EJOBLIB 

//INDEXPRT 

DO 

SYSOUT-I GA.eCL) 

//ISAMWORK 

DO 

UNIT-GSTG,SPACE-(CYL,  ( 10 ) ) , DCB- ( DSOP G»I S .RECFM-VB , 

// 

LRECL 

-1000,BLKSIZE-1006,rPTCC-lYLR,CYL0FL-2) 

//newfile 

DO 

DSN-EISAM,OISP»SHP,VOL»eVISAM,UNIT-EUlSAM 

//SAMFILE 

DO 

DSN- 6SAM. S, UNI T-EUSA M, VOLUME -EVS AM, 

// 

DISP- 

( SHR.KEEP)  ,LABEL-( ,C LAB), 0CB-(OECFM.VB, LRECL- 1000, 

// 

BLKSIZE-CBSZFILE.TRTCH-tTRCH, DEN- EDEN) 

//SLIB 

DO 

DSN*ELIB.L,V0LUME»EVLIB,UN1T-£ULIB,0ISP-SHB 

// 

DO 

0SN-FFS.J0BL1B,0ISP-SHR 

//SOPTLIB 

OD 

OSN-SVS1.SORTL1B,OISP-SHR 

//SORTWKOl 

DO 

UNIT-GSTG,SPACE-«CYL, CESCRTSP) , .CONTIG) 

//SORTWK02 

OD 

UNIT-£STC,SPACE-ICYL, (ESCRTSP),,C0NT1G) 

//S0RTWK03 

DO 

UNI T-GSTG, SP ACE- (CYL, I E SCRTS P ),, CONTIG) 

//S0RTWK06 

DO 

UNIT-£STG,SPACE-(CYL,ICSORTSP) , .CONTIG) 

//S0PTMK05 

DO 

UNI T-ESTG, SP ACE- (CYL.IESORTSP),, CONTIG) 

//SORTMK06 

OD 

UNIT-CSTG,SPACE-(CYL , IE SCRTSP), .CONTIG) 

//SOURCPRT 

DO 

SYSOUT-(GA,GCL) 

//SYSOUT 

DO 

SYSOUT-t  EA,GCL1) 

//SYSPRINT 

OD 

SYSOUT- (EA.GCL) 

//SYSUDUMP 

DO 

SYSOUT-IGA.ECLl) 

//UTSAHOUT 

OD 

ESAMOUT. DC B-(RECFM-VB, LRECL- 1000, BLK SI ZE-EBSZNEWF, 

// 

OEN-EOEN,TRTCH-CTRCHI,OISP-(,KEEP),LABEL-( ,ELABI , 

U 

UNIT- 

EUSAM, VOLUME- (PRIVATE, RETAIN (EVSMOUTl.DSN-ES AM. S 

//XINDEX  DO  OSN-CXINOEX.X,OISP-ICXOISPtKEEPI,UNIT-CXUNlT, 
it  VOL-CXVDL,SPACE-UBLKSI2E,6NBRBLK», 

//  OC8*( BLKSIZE-£BLKS1ZE,RECFM-F,KEYLEN-A,OSORG-DA» 


00000100 

00000200 

00000300 

OOOOOAOO 

OOOOOAIO 

00000500 

00000600 

00000700 

OOOOOBOO 

00000900 

00001000 

00001100 

00001200 

00001300 

00001600 

00001500 

00001600 

00001700 

00001900 

00001900 

00002000 

00002100 

00002200 

00002300 

00002310 

00002600 

C00002500 

00002600 

00002700 

C00002800 

C0C002900 

00003000 

00003100 

00003200 

00003300 

00003600 

00003500 

00003600 

00003700 

00003800 

00003900 

00006000 

00006100 

00006200 

00006300 

00006600 

C00006500 

00006600 

00006700 

00006800 

00006900 


NIPS  36C  FFS 


PROCEDURES 


//XSTOIS  PROC  A»A,BSZFlLE»,BSZNEWF=,CC*tCL=' , • ,CLl«' i • , CYLOFL«l t DEN« , 
//  INDEX*1,I  SAM  = * DUMMY. FILE*  , JOBLI  B>=  • FFS.  JCBLIB*  , 

//  LAB=St.N0ISP*KEEP,OVFLCW=5iPRIME=A0iRGN*60K, 

//  PTFJOBL** PTF.JOBLIB* , 

//  SAM,«0UMMY.FlLE'f SEQNO»lf TRCH»,UISAM=* (23l4tP)', 

//  USAM=MTAPE9,,DEFER»*,VISAM»'SER  = CANCEL', 

//  VCVFLGW=*  REF»*.OATAFTLE' f VPRIME«' REF  = *.CATAFILE*  . 

//  VSAM= 

//♦ 

//♦  CHARLES  W.  HICKISCH  MAJOR, USA  PROJ  CODE«763NrPS  6RANCH*431 

//*  OATE=MARCH  I,  1974 

//♦ 

//STPl  EXEC  PGM*UTBLOISM,REGION*£RGN,PAPM*»CCC' 

//STEPLIB  DO  DISP*SHR,DSN»CPTFJOBL 
//  DO  DISP»SHR,OSN-£JOBLIB 

//DATAFILE  DD  DCB» ( DSORG»I S, CYLOFL »£CYLCFL , 8UFN0»5 , BLKS I Z E’GBSZNEMF ) , 
//  VOLUME«£VISAM, 

//  DSNAME»£ISAM.( INDEX) ,SP ACE» ( CYL ,£ INDEX ), UNIT =£UI SAM, 

//  DISP«( ,£NOISP, DELETE) 

//  DO  OCB=*.OATAFILE,VOLUME»£VPRIME, 

//  OSNAME«£ISAM.(PRIME) ,SPACE*<CYL,£PRIME) ,UNIT=£UISAM, 

//  DISP*( ,£NDISP, DELETE) 

//  DD  DCB«4. DATAFILE, VOLUME-£VOVFLOW, 

//  DSNAME«CISAM.(QVFLOW),SPACE=(CYL,£CVFLOW) ,UN IT*CUI S AM , 

//  DISP»( ,£NDISP, DELETE) 

//SAMFILE  DO  OSNAME-£S AM . S, 01 SP»SHR ,UNI T»£USA M , VOLUME*£ VS AM , 

//  LA8EL»(£SE0N0,£LAB) ,CCB-(RECFM=VB,LRECL«1000,BLKSIZE»CBSZFILE, 

//  0EN-£0EN,TPTCH*£TRCH,BUFN0=5) 

//SYSPRINT  DD  SYSOUT- ( £A , £CL ) 

//SYSUDUMP  DO  SYSOUT-(£A,£CLl) 


00000100 

00000200 

00000300 

00000310 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001310 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 


144 


CH-1 


NIPS  360  FFS 


PROCEDUPCS 


//XSUBCHK  PROC  A»A , CL»* t • , CL l» * t * fCL2* • , • , JCBL 1 0* • FES. JOBLI B* t 

//  PTFJ08L»*PTF.J0BLie»t 

//  L10»,ULIB*231A,VLIB« 

//* 

//♦  CHARLES  W.  HICKISCH  MAJOR, USA  PRCJ  C0DE«763N1PS  BRANCHxA3l 
//* 

//SUBCHK  EXEC  PGP*UTSU0CMK 
//STEPLI0  DO  DSN«£PTFJOBL,DISP»SHR 
//  DO  DTSPxSHR.OSNxCJOBLlB 

//SLI0  DO  DSN«CLlB.L,V0Lx6VLlB,UNITx£ULIB,DISPxSHP 
//SYSDMY  DO  SYSOUT-(£A,£CL> 

//SYSUDUMP  00  SYSOUT«<£A,£CLl) 

//SYSPRINT  00  SYS0UTx(£A,£CL2) 


OOOOOlOO 

00000110 

00000200 

00000300 

00000400 

00000600 

00000700 

00000800 

00000810 

00000900 

00001000 

00001100 

00001200 


\ 


145 


CH-1 


NIPS  360  FPS 


PROCEDURES 


//XSUBLOR  PROC  A«Af CL-* t * t CL 1» • t ' t JOBL I e»* FFS . JOBLIB* , 

II  JOBNAC>*FFS.JOBMACRO'«LIB>NONEtLlBOISP>OLD, 

//  LIBSP** (2t 1,51 •,M0DLIB-*CTEMP*,RGN*60K, 

//  PTFJOBL»*  PTF.JOBLIB*,PTFJOBM»»PTF.JOBMACRO' , 

//  STG*NIPW,ULIB-2316,VL1B»,BLK«7294 

n* 

//*  CHARLES  H.  HICKISCH  MAJOR, USA  PRCJ  C00E»763NIPS  BRANCH-631 
//*  DATE-MARCH  I,  1976 
//• 

//SUB  EXEC  PGM-UTSUBLDR,REGI0N-6RGN 
//STEPLIB  DO  OISP»SHR,DSN-EPTFJOBL 
//  DD  0ISP-SHR,DSN-CJ0BL1B 

//SYSUDUMP  DO  SYSOUT-(CA,CCLU 
//SYSPRINT  DD  SYSOUT-UA,  CCL  I 

//ASSEMIN  DO  UNIT-CSTG,SPACE-(CYL,Ol),OSNAME-£AIN,CISP-« ,PASS)  , 
//  0CB»(BLKSIZE-600» 

//LNKEOIN  DD  UNI T-C STG, SPACE- (CYL ,0 H ,OSNAME-CCL IN ,DI SP* (, PASS ) , 

//  0CB-(BLKSIZE-600» 

//SYSnUT  DD  SYSOUT»(£A,ECL» 

//ASMBL  EXEC  PGM-I EUASM,COND-( 0,LT , SUBI ,REGICN-CRGN 

//SYSUTl  DO  SPACE-(1700,<600,50I),UNIT-ESTG 

//SYSUT2  DO  SPACE-(1700,(600,50)),UNIT-(ESTG,SEP»SYSUT1) 

//SYSUT3  DO  SPACE-! 1700, (600,50) ) , UNI T- ( ESTG , SEP«( SYSUTl , SYSUT2) ) 
//SYSLIB  DD  OISP=SHR,OSN-EPTFJOBM 

//  DD  OISP-SHR, DSN-EJOBMACRO 

//  DD  OISP-SHR, DSN-SYSl.MACLIB 
//SYSPRINT  DD  SYSOUT- ( EA , ECL) 

//SYSPUNCH  DO  UNIT-ESTG,SPACE-(CYL,5),DSNAME-ELKIN,0TSP-(,PASS) , 

//  DCB-(BLKSIZE-600) 

//SYSIN  DD  DISP-(OLD, DELETE), OSNAME-EAIN 

//LKEOT  EXEC  PGM-I EWL , P ARM-*L I ST, XREF* ,REG ION- ERGN, 

//  CONO- (( 0,LT, ASMBL ),(0,LT, SUB)) 

//SYSUTl  DD  SPACE-(TRK,(50,5)),UNIT-ESTG 

//SYSPRINT  DD  SYSOUT- ( EA , ECL ) 

//SYSLMOD  DD  OSNAME-EL I B.L , UNIT-EUL I B , VCLUME-E VL I B , 

//  SPACE-(CYL,ELIBSP),DISP»(ELIBDISP,KEEP), 

//  DCB-(RECFM-U,BLKSIZE-EBLK) 

//DPUNCH  OD  0SNAME-ELKIN,0ISP-(0L0, DELETE) 

//SYSLIN  OD  DSNAME-ECLIN,OISP-(OLO, DELETE) 

//SYSLIB  DO  DISP-SHR,0SNAME-EJ0BLIB 

//MOOLIB  DO  DSNAME-EMOOLIB, OISP-(OLD, DELETE  ) 


00000100 

00000200 

00000300 

00000310 

00000600 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001010 

00001100 

00001200 

•00001300 

00001600 

*00001500 

00001600 

00001700 

ooooiaoo 

00001900 

00002000 

00002100 

00002200 

00002210 

00002300 

00002600 

*00002500 

00002600 

00002700 

X00002800 

00002900 

00003000 

00003100 

X00003200 

X00003300 

00003600 

00003500 

00003600 

00003700 

00003600 
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NIPS  360  FFS 


PROCEDURES 


//XTABGEN  PROC  A«  A,  BLK»7296t  CL* ' i ' f CH«  • , • iCL2  = ‘ t • , 

//  JOBLIB-'FFS.JOBLIB' ,L I 8=NCNEf L 1 BD I SP=OL C, 

//  LIBSP*' (2t 1,5)' ,RGN»80K,SCRTSP«8, STG=NI PW,UL I B*231^f 

//  PTFJOBL-* PTF.JOBLIB*  , 

//  VLTB* 

//• 

//*  CHARLES  ta.  HICKISCH  MAJOR, USA  PRCJ  C0DE=763MIPS  BRANCH*A31 
//*  DATE-MARCH  1,  1974 
//* 

//TAB  EXEC  PGM*UTTABGEN,REGION»CRGN 
DO  DISP-SHR, DSN-tPTFJOBL 
DO  DISP-SHR, OSN-ejOBLIB 
DD  SYSOUT-(CA,CCLi 
DD  SYSOUT-(CA,£CLU 
DD  SYS0UT-(EA,GCL2» 

DD  DISP-SHR, DSNAME-SYSl.SCRTLIB 
DD  SPACE-(CYL,»£SORTSP) , ,CONTIG»,UNIT-CSTG 
DD  SPACE-(CYL,(GSORTSPI ,,CONTIG» ,UNIT»( eSTG,SEP=S0RTWK01 ) , 
SEP-SORTWKOl 

DD  SPACE-tCYL,(CSORTSP) ,, CONTI G), UNIT- (GSTG, SEP* SCRTWK02) , 
SEP-S0RTWK02 

DD  SPACE-(CYL ,(£S0RTSP», , CONTI GJ ,UNI T- ( CSTG, SEP- ( SORTWKOl , 
S0RTHK03I ) ,SEP-<  SORTWKOl , SORTWK03 J 
DD  SPACE-(CYL,(£SORTSP) ,, CONTI GJ, UNIT-(ESTG, SEP- (S0RTWK02, 
S0RTWK04) ) ,SEP-( S0RTWK02, S0RTWK04) 

DD  SPACE-(CYL ,(£SORTSP I,, CONTIG),UNIT-(ESTG, SEP- (SORTWKOl, 
S0RTWK03,S0RTWK05)» ,SEP-( SORTWKOl, SORTWK03,SORTWKO5) 
//SYSLMOO  DD  DSN AME- ELI B. L , VOLUME-EVLIB,UNI T-EULl B , SP ACE-IC YL , EL IBSP I , 
//  DI SP-( ELI BDI SP ,KEEP I , DCB-( RECFM-U,BLKSI ZE-EBLKI 


//STEPLIB 

// 

//SYSOUT 

//SYSUDUMP 

//SYSPRINT 

//SORTLIB 

//SORTWKOl 

//S0RTWK02 

// 

//S0RTWK03 

// 

//S0RTWK04 

// 

//S0RTWK05 

// 

//S0RTWK06 

// 


OOOOOlOO 

00000200 

00000300 

00000310 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

OOOOIOOO 

OOOOlOlO 

OOOOllOO 

00001200 

00001300 

00001400 

00001500 

X00001600 

00001700 

XOOOOIROO 

00001900 

X00002000 

00002100 

X00002200 

00002300 

X00002400 

00002500 

X00002600 

00002700 
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PROCEDURES 


//XTP 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

U 

// 

// 

//♦ 
//♦ 
//* 


PROC  A=A, 

CL*' , • ,CLl=' . •tCL2=Uf CL3=C,CL4=StCL5*T, 
JOBLIB*'FFS.JOBLIB'f 
LIB='OUMMY.FILE', 

LIB1='0UMMY.FRE», 

PTFJOBL*' PTF.JOBLIB', 
PESTART-REFORMAT, 

RGN-82K, 

STG=NIPW,TPIPQ*TPIHQ, 
TPOUMP='SYSnUT«( A, ,) • . 

ULIB* 2314, ULIB 1=2314, 

UOMQ=2314, 

VOMO='REF»*.INMSGQ'  , 

VLIB=,VLIB1«, 

X1N0EX='DUMKY.FILE' , 
XUN1T=2314,XV0L« 


CHARLES  M.  HICKISCH 
OATE=MARCH  1,  1974 


MAJOR, USA  PRCJ  C0DE=763NIPS  BRANCH=431 


//* 

//TPMONSUP  EXEC  PGM* UTTPDR VR ,R EGION*CRGN, P ARM=£R ESTART 

//STEPLIB  DO  0SN*CPTFJ08L,0ISP*SHR 

//  DD  DSN=EJOBLIB,DISP*SHR 

//SYSUTl  OD  SPACE=(TRK,(0,5)),UNIT*CSTG 

//SYSUT2  OD  SPACE*(TRK,(0,20)),UNIT=CSTG 

//SYSUT3  DO  SPACE»ITRK,(0,5J »,UNIT=(ESTG,SEP*SYSUTU 

//SYSUT4  DD  SPACE*(CYL,I0,1)),UNIT=ESTG 

//SLIB  DD  DSNAME*ELIB.L,UNIT*EULIB,VOLUHE«EVLIB,DISP=SHR 
//  DO  DSNAME=ELIB1.L,UNIT=£ULIB1,VCL0M£«£VLI61,DISP»SHR 

//  DD  OSNAME=£JOBLIB,DISP=SHR 

//DATAFILE  DD  DI SP=SHR , DSNAME=OUMMY.F I LE ,UNI T« ( , P ,OEFE R ) 

//DATAFILA  OD  DSN=OUMMY. F IL E67 , UNI T=( NI PW ,2) , SPACE* ( TRK, ( 0 )), DI S P=NEW 
//DATAFIL2  OD  DI SP»SHR, OSN=DUMM Y .F IL E,UNI T» ( 23 14 , P, DEFER ) 

//DATAFIL3  DD  D1SP*SHR , CSN=DUMMY. FILE ,.UNI  T»  ( 23 14,  P , DEF ER I 

//SAHFILE  DD  D1SP*SHR , DSN=OUMMY.FI LES , UNI T« ( 2314 , P , DEFER  I 

//EDCONSOL  DD  SPACE* ( TRK , ( 5 , ,4 ) ) , UNI T*CSTG 

//EDITLIB  DD  DSN=0UMMY.F1LEL,DI SP*SHR 

//INMSGQ  OD  D1SP*SHR,0SNAME*CTPIMQ 

//OMSGO  DO  OISP=SHR,DSNAME*ETPIMQ 

//OUTMSGQ  DO  SPACE*! TRK , 0 ), VOLUME»EVOMO ,UM T=EUDMQ 
//AMSGO  DO  UNIT*ESTG,SPACE*(TRK,0» 

//SDCONSOL  DO  UN IT-ESTG, SPACE*! 2300, ( 10, , 4» » 

//SOKNSET  do  SPACE*!CYL,I 1,1) ),UNIT»CSTG,0CB*!RECFM*F,BLKSIZE»1004I 
//STATRECS  OD  SYSOUT* ! EA , ECL ) 

//SYSLMOD  OD  SPACE*!TRK, !20, ,8) ),UNIT*£STG,CCB*FFS.JOBLIB, 

//  LABEL=EXP0T*66366 
//SYSPRINT  DO  SYSOUT*!EA,ECL) 

//SYSABENO  DO  SYSOUT*! E A , ECL 1 ) 

//TPDUMP  OD  SYSOUT*  !EA,  ECU) 

//EOITOUMP  DO  SYS0UT*!EA,CCL1) 

//SYSONLTN  OD  ETPOUMP 

//XINOEX  DO  OSN*CXINDEX.X,UNIT*EXUNIT,VGL>CXVOL,OISP*SHR 
//SHAROASO  DO  0SN«NI PS.TPJOBQ,OI SP*! MCD.KEEP) 

//SYSIN  DO  DUMMY 
//U  DO  SYS0UT-!£A,£CL2) 

//C  DO  SYS0UT*(£A,CCL3) 

//S  DD  SYSOUT*  !£A,GCL4) 

//T  DD  SYSOUT- (SA,tCL5) 

//SUBFILE  DD  UNIT-tSTG, SPACE- (CYL, (0 , 1 , 10) ) 


00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 

00003400 

00003500 

00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

00004500 

00004600 

00004700 

00004800 

00004900 

00005000 

00005100 

00005200 

00005300 

00005400 

00005500 

00005600 

00005700 

00005800 

00005900 
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NIPS  360  FFS 


PROCEDUPES 


//XTPMON 

PROC  A=A,CL*' f'tCLl'*  t*  f JOBLIB»*FFS.JOBLIB* , 

OOOOOlOO 

// 

N2260*2,0MITl»NULLUNTl,RESTART*REF0RMAT, 

00000200 

// 

PTFJOBL=*PTF.JOBLIB'f 

00000210 

// 

TPI H0«TP1 MQ ,UDD5=2E0 ,U006»*  2260- 1 • , 

00000300 

If 

UOMO» ,VOMQ»*  REF=*. INHSGO* 

00000400 

U* 

00000500 

//*  CHARLES 

W.  HICKISCH  MAJOR, USA  PRCJ  C00E»763NIPS  eRANCH«43l 

00000600 

//*  DATE= 

MARCH  1,  1974 

00000700 

//♦ 

00000800 

//TPMON 

EXEC  PGM-T PMON,PARM*£RE STAR T, TIME= 1439 

00000900 

//STEPLIB 

OD 

OISP=SHR,OSN«CPTFJOBL 

00001000 

U 

DO 

DISP=SHR,DSN=ejOBLlB 

00001010 

//STATRECS 

OD 

SYSOUT«( CA.CCL) 

00001100 

//SYSUDUMP 

00 

SYSOUT=( CA.CCLl) 

00001200 

//INMSGQ 

DO 

disp=shr,osname=ctpimq 

00001300 

//OUTMSGO 

DO 

SPACE*! TRK,0),VOLUME*EVOMO,UNIT«EUOMC 

00001400 

//NOUNITl 

00 

DDNAME*EOMITl 

00001500 

//0D5 

DO 

UNIT*EUD05 

00001600 

//DD6 

DO 

UNIT*(EU0D6,EN2260) 

00001700 
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NIPS  360  FFS 
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//XTPSUP  PROC  A*A, 


// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//• 

//* 


CL«' .CLl»' , '.CLa^UiCLB^C.CL^^SfCLS^T, 
JOBLIB»'FFS.JOBLIB' , 
LIB**DUN«Y.FILe*t 
LIBl*'OUMMY.FlLE'f 
PTFJOBL^’PTF.JOBLIB*, 

RGN*82K, 

STG=MIPW, 

TPOUMP=*SYSOUT*( A, f ) • , 
ULIB*2314,ULIB1°23U. 

VLIB=,VLTB1=, 

XINOEX»'OUMMY.FILE*  , 

XUNIT«231^,XV0L« 


CHARLES  N.  HICKISCH 
OATE=MARCH  I,  1974 


MAJOPtUSA  PRCJ  C00E»763NIPS  BRANCH«43l 


//* 

//TPSUP  EXEC  PGM=TPSUP,REGICN=CRGN,T1ME*143S- 

//STEPLIB  00  OSN=CPTFJQBLfOISP*SHR 

//  00  OSN»tJOBLlB,DISP«SHR 

//SYSUTl  DO  SPACE»(TRK,(0,5n,UNIT  = CSTG 

//SYSUT2  DO  SPACE*(TRK,(0,20) J,UNIT*tSTG 

//SYSUT3  00  SPACE«(TRK,(0,5)»tUNIT«(CSTG,SEP*SYSUTlJ 

//SYSUT4  DO  SPACE-CCYLf (0, 1) » ,UN1T«CSTG 

//SLI6  DO  DSNAPE»£L:B.L.UNlT»CULie,vaLUPE»CVLIB,OISP*SHR 
//  DO  DSNAHE»ELIB1.L,UN1T»CUL1B1 ,VOLUHE-tVLIBl ,DISP»SHP 

//  00  DSNAME>£JOBLIB,OISP>SHR 

//datafile  00  OtSP*SHR,DSNAME«OUMMY. FILE, UN1T»(,P, DEFER) 

//DATAFILA  00  OSN*OUMMY .FIL E67, UNI T»( Nl PW ,2) ,SPAC E* ( TRK , ( 0 ) ) ,01  SP 

//DATAFIL2  DO  DISP=SHR , DSN*OUMMY .F UE ,UNI T= « 23 14 , P, DEF ER ) 

//0ATAFIL3  00  0! SP-SHR , DSN*DUMMY,F I LE ,UM Ta( 23 14, P ,OEF ER ) 

//SAMFILE  DO  01 SP-SHP. , DSN*OUMMY.F I LES  ,UNI  T* ( 2314 , P , DEFER  ) 

//EOCONSOL  00  SPACE*(TRK,(5,,4)),UNIT=£STG 

//EDITLIB  00  0SN«0UNMY.FILEL,D1SP-SHR 

//INMSGO  00  OISP=SHP,OSNAME*TPIMO 

//OMSGQ  DO  0ISP*SHR,DSNAME*TP1H0 

//AMSGQ  00  UNIT«CSTG,SPACE*(TRK,OI 

//SOCONSOL  00  UNIT»CSTG,SPACE«(2300, { 10,  ,411 

//SDKNSET  DO  SPACE*(CYL, ( 1, 1» ) , UNI T»CSTG , DCB* ( RECF)««F , BLKSI ZE* 1004) 
//SYSLMOD  DO  SPACE-! TRK, ( 20, , 8 ) ) ,UNI T»eSTG , CCB-FFS. JOBLI B , 

//  LABEL-EXPOT-66366 
//SYSPRINT  00  SYSOUT-(CA,CCL) 

//SYSABEND  DO  SYSOUT- ( £A ,CCU1 ) 

//TPDUMP  00  SYS0UT«(CA,6CL11 
//EOITOUMP  00  SYS0UT-!6A,CCL1) 

//SYSONLIN  DO  ETPOUMP 

//XINDEX  DO  OSN-EXINOEX.X, UNIT-EXUNIT, VCL-eXVCL,DTSP-SHR 
//SHAROASD  00  OSN-NI PS.TPJOBO, 01 SP-( MOO,KEE P > 

//SYSIN  DO  DUMMY 
//U  DO  SYS0UT-(£A,ECL2) 

//C  DO  SYS0UT-(EA,£CL3I 
//S  DO  SYSOUT- (eA,CCt4» 

//T  00  SYSOUT- (EA.ECLS) 

//SUBFIL  DD  UNIT-ESTG, SPACE- (CYL, (0,1 ,10) ) 
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//XTROISK  PROC  A-A,CL»*t SCLl-* I* iJOBLlB-'FFS.JCBLIB*  , 

//  LAB-BLPtRGN>60K,SAM-.USAM>' (TAPE9.tOEFER)', 

//  PTFJOBL-'PTF.JOBLIB* , 

t!  VSAM*,XFDISP»SHR|XFNAME»,XFUNIT-2316,XFV0L» 

Z/********************** *»«**«** *****«•*•*•**«*•******** *************** 


//♦  • 

//•  THIS  PROC  IS  USED  TO  TRANSFER  A CISK-PESIDENT  INDEX  DATA  SET  • 

//*  TO  TAPE.  THIS  OPERATION  CONDENSES  THE  INDEX  DATA  SET.  THE  TAPE  * 
//*  SO  CREATED  IS  A SEQUENTIAL  DATA  SET  CONSISTING  OF  VARIABLE  LENGTH  * 
//*  BLOCKED  RECORDS  THAT  CONTAIN  THE  SOURCE  DATA  AND  CONTROL  * 

//*  INFORMATION  FOR  SUBSEQUENTLY  RECONSTRUCTING  THE  SOURCE  DATA.  * 

//*  • 

//*  //STEPNAME  EXEC  XTROISK ,XFNAME»WW, SAM-XX, XF VOL- YY , VSAM-2 Z • 

//*  • 

//*  CHARLES  W.  HICKISCH  MAJOR.USA  PRCJ  C00E-763NIPS  BRANCH-N31 
//*  DATE-MARCH  1,  1976 

//*  • 

//*«*4i*4i4>*«*4i****4i*4>***«**«*4>**«*«**********«*******«***««**«***«*»**** 


//* 

//XTR 

EXEC  PGM*UTNDXTFP,PARM-CISK,REGION-CRGN 

//STEPLIB 

DO 

DISP-SHRf OSN-CPTFJOBL 

// 

DO 

DISP-SHR,DSN-CJOBLIB 

//INDEXOAM 

DD  DSN=CXFNAMEfUNIT»6XFUNlT,V0L»CXFV0L.01SP«GXF0ISP 

//INDEXPRT 

DO  SYSOUT-(CAt£CLI 

//INDEXSAM 

OD  DSN«CSAM,UNIT»CUSAMiVOL-£VSAM,DISP«(NEWtKEEP|  , 

// 

LABEL-( tCLAB) 

//SYSPRINT 

DD  SYSOUT-(CA.GCLi 

//SYSUOUMP 

DD  SYSOUT-(eA,GCLl) 
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PPOC  A»A,CL«*f J0BLIB»'FFS.JGBLIB* , 

LAB=BLPtNBRBl.K»50tRGN*60K,  SA*1», 

PTFJ08L=*  PTF.JOBLIB* , 

USAM=M  TAPEP,  .DEFER)  • .VSAfi^.XFOISP-CLD, 

, , XTDISP«MNEM,KEEP)‘  , XTNAPE* , XTUM  T=23 1 A , XTVOL  = 


//XTRTAPE 

// 

// 

// 

// 


//*  * 

//*  this  PROC  is  used  TG  RECCNSTRUCT  a DISK-RESIDENT  INDEX  DATA  * 

//♦  SET  FROM  A PREVIOUSLY  UNLOADED  SEQUENTIAL  VERSION  CF  THE  INDEX  • 

//*  DATA  SET.  * 

//♦  ♦ 

//*  //STEPNAME  EXEC  XTRTAPE, SAV*WW, XTNAME»XX,USA»».YY,XTV0L»Z2  • 

//♦  ♦ 

//*  CHARLES  h.  HICKISCH  MAJOR.USA  PRCJ  C0CE=763NIPS  BRANCH=A3l 
//*  DATE»MARCH  l,197A 

//•  ♦ 


//m************* ****************************************  *************** 


//XTR 

//STEPLIB  DO 
//  DO 

//INDEXPRT 
//INOEXSAM 
// 

//SYSPRINT 

//SYSUDUMP 

//XINOEX 

// 

// 


EXEC  pgm«utnoxtfr,parm»tape,region=cpgn 
DISP»SHR,OSN»EPTFJOBL 
DISP* SHR.OSNxtJOBLIB 
DD  SYSCUT»tCA,CCL) 

DC  DSN«CSAM,UNITxCUSAM,VOL»CVSAR,OISP=tXFDISP, 
LABELx( .CLAB) 

DD  SYSOUTxUA.CCLl 
DD  SYSOUTx(£A,CCLl) 

DO  DSNxCXTNAME,UNITx£XTC'NIT,VOL  = £XTVOL, 
OISPx£XTDlSP.SPACE»(560,£NBRBLK) , 

DCB=I  BLKSIZE=560,P.ECFM-F,KEYLEN=A,CS0RG«0A) 
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//XUTFSCAN 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//*  CHARLES 

//*  0ATE> 

-MARI 

//♦ 

//UTFLDSCN 

EX 

//STEPLIB 

DO 

// 

OD 

//SYSPRINT 

DO 

//SYSUDUMP 

DO 

//SYSCUT 

DO 

//DATAFILE 

00 

//SORTLIB 

DO 

//SORTIN 

DO 

//SORTWKOI 

OD 

//SOPTWK02 

DO 

// 

//SnRTWK03 

DO 

// 

//SOPTWK04 

DO 

// 

// 

//SORTWK05 

DO 

// 

// 

//S0RTWK06 

DO 

// 

// 

//ISAMWORK 

DO 

//SAMFILE 

00 

// 

// 

//SYSUT2 

OD 

// 

DO 

//TRANST 

DC 

// 

PROC  A=A,BSZFILE», 

CL=', •,CLl=*f • tDEN»,ISAM=*0UMMY.FILE', 
JOBLIB«'FFS.JOBLIB' , L AB=SL , L I B= 'DUMMY. F ILE ' i 
LIBl='DUMMY.FILE' tRGN«<)flK,SAM='CUMMY.FILE', 
PTFJOBL«'PTF.JOBLTB' i 

SORTSP*lO, STG=NIPWtTBLK»500f TOI SP=MOD, 
rRANS=' DUMMY. FILE' f TP ANSP*200 i TRCH», UI S AM»' ( 2314,PI ' 
ULIB«231A,ULIB1-231A,USAM»'(TAPE9,,DEFEP) '. 
UTRANS=2314,VISAM»,VLIB=,VLIB1»,VSAM»,VTPANS« 


U • 


HICKISCH 
If  1974 


MAJORtUSA  PRCJ  CQ0E«763NIPS  BRANCH-431 


EC  PGM-UTFLDSCN,REGION*CRGN 
DISP=SHR,DSN=tPTFJOBL 
D1SP=SHR,DSN=CJ0BLIB 
SYSCUT=(eA,CCLI 
SYSOUT=(£A,CCLll 
SYSnUT=(CA,£CLl) 

OSNAME»CISAM,UNIT-tUISAM,VOLUME-£VISAM,DISP-SHR 
DSNAME-SYS1.S0PTLIB,DISP»SHR 
UN!T=eSTG,SPACE=ITRK,(CTRANSPf 150)) 

SPACF*(CYL , ( t SORTS P) f fCONTIG)fUNI T= ( £ STG , SEP-SORT I N) 
SPACE-ICYL  f(£SORTSP) ♦, CONTI G) , 

UNIT«(£STG,SEP-SORTWKOl)f  SEP-SORTWKOl 
SPACE«(CYL  f (£SORTSP),tCCNTIG), 

UNIT-(£STG,SEP=S0PTWK02) f SEP-S0RTMK02 
SPACE=(CYL , (£SORTSP) f .CONTIG), 

UNIT=( £STGfSEP-(S0RTWK0liSCRTWK03) ) f 
SEP=( S0RTMK0l,SORTWK03) 

SPACE=(CYL, (£SORTSP) , fCCNTIG), 

UNIT=( £STG,SEP=(S0RTWK02f SCPTWK04) ) , 

SE?-( SORTWK02,SORTWK04) 

SPACE*! CYL,(£SORTSP) f tCONTIG)  . 

UNIT*  ( £STG,  SEP*  ( SORTWKOI  t SCR TW((03 , SORTWKO 5 ) ) , 

SEP*(  SORTWKOlf SORTWK03,SORTMK05) 

UNI T=£STGfDCB*DSORG*IS, SPACE-! CYL  t< 10) ) 
OSNAME-£SAM.S,UNIT»CUSAMf VOLUME-£VSAM,DrSP-(SHR,KEEP)f 
LABEL-! f £LAB) t 0CB*(RECFM»VBtLPECL*1000tBLKSlZE-EBSZFICEf 
TRTCH-£TRCH,DEN-£DEN) 

OSNAME-£LIB.Lf UNIT-£ULIB,VOLUME-£VLlB,DISP-SHR 
DSNAME-£LIBl.LfUNIT*£ULIBlfVCLUME-£VLIBl,OISP-SHR 
DSNAME-£TRANSfUNlT-£UTR ANS , VOLUME-EVTR ANS, OT SP-ETDI SP f 
DCB-!RECFM*FB,LRECL*50,BLKSIZE-£TBLK) 
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//XUTSOUPC  PROC  CL-*t*tCLl«*,»tJOBLIB»*FFS.JOBLIB', 

II  PTFJOBL-'PTF.JOBLIB* t 

//  NANE«,SOISP«SHP,SOURCL»tUSCURCL»23l«fVSCURCL» 

//♦ 

II*  CHARLES  U.  HICKISCH  MAJOR, USA  PRCJ  C00E-763NIPS  BRANCH«63l 

II*  DATE«MARCH  I,  IP76 

II* 

//SOURC  EXEC  PGM-UTSOURC 
//STEPLIB  00  OISP»SHR,OSN»CPTFJOBL 
//  00  0ISP»SHR,0SN»CJ0BL1B 

//SOURCPRT  00  SYSOUT»( A.CCLI 

//SOURCLI B 00  0ISP«CS0I SP,OSN-CSOURCL.L,VCL»EVSOUPCL,UNIT»6USOURCL 
//SYSUDUMP  00  SYSOUT-(A,tCLll 

//SYSIN  00  0ISP«SHR,0SN»ES0URCL.L(CNAMEI,UMT-CUS0URCL,V0L«6VSCU9CL 


00000100 

00000110 

00000200 

00000300 

OOOOOAOO 

00000500 

00000600 

00000700 

00000800 

OOOOOSIO 

00000900 

00001000 

00001100 

00001200 


154 


CH-1 


NIPS  360  FFS 


PROCEDURES 


PROC  A»A,CL-' f*tCtl«*,*,ISAF-'DUPMY.FILE', 
JOBLIB»»FFS.JOBLIB' ,RGN-60Kt SAH-OUMMY, 
PTFJOBL*' PTF.JOBLie*, 

UISAM«*(23l4f  P|*,UM10«*  (TAPE7t  .OEFEO)'  t 
VISAH«,V1410« 


//X1410C0N 
// 

// 

// 

// 

//♦ 

//* 

//* 

//• 

//GO  EXEC  PGM-UTOATAC,REGION»ERGN 


CHARLES  k.  HICKISCH 
OATE»MARCH  It  1974 


MAJOR, USA  PPCJ  C0CE-763NIPS  BPANCH-431 


//STEPUTB 

// 


DO 

OD 


DISP*SHR, OSN«tPTFJOBL 
0ISP>SHR,0SN>CJ0BLIB 


//SYSPRINT  DD  SYSOUT* ( CA , CCL ) 

//SYSOUT  DO  SYSOUT*! 6A,ECL» 

//SYSUOUMP  DO  SYSOUT* (GAtCCm 

//datafile  DO  OTSP*SHR,OSN*(1ISAM,UNTT*CUISAM,VOLUHE*CVISAH 
//NEHFILE  DO  OSNAME*ES AM. XXX, UNI T*CU1410 , VOLUME* CV14 10 .LABEL* (, NSL) , 
//  0CB*!BLKSI2E*2704,TRTCH-ET,DEN*U ,01SP-(,KEER) 
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PROCEDURES 


//X360C0N  PROC  A»A , CL* • t • f CL  l« • t • , I SAM* • OUHf<Y.  F ILE  • , 

//  JOBLIB**FFS.JOBLIB*,LAB*BLPtNDISP»PASS, 

//  00ISP*DELETE,RGN-6CK,SAM*,UISAM*'  (231<4,P»  • , 

//  PTFJOBL**PTF.JOBLTB', 

//  IJSAM*M  TAPE9,,0EFER)  '.UUIO*'  (TAPE7,,DEFER>  •, 

//  VISAM*,VSAM*,VIA10* 

It* 

n*  CHARLES  W.  HICKISCH  MAJOR, USA  PRCJ  C0DE*763K1PS  BRANCH*431 
//•  DATE*MARCH  1,  1976 
//* 

//GO  EXEC  PGM*UTDATAC,REGION*CRGN 
//STFPLIB  DO  01SP*SHR,DSN*EPTFJ0BL 
//  DO  DISP-SHR,OSN*ejOBLI8 

//SVSUDUMP  DO  SYSOUT*(CA,tCLll 
//SYSPRINT  DO  SYSOUT*<CA,CCL) 

//SYSOUT  OD  SYSOUT* (CA.eCL) 

//DATAFILE  DO  DCB*DSORG* I S,OI SP* < SHR , EODI SP , KEE P » , OSNAME*EI S AM, 

//  UNIT*EUISAM,VOLUME*CVI SAM 

//FILE  1610  DO  DI SP*( OLD, PASS), L ABEL* ( 2, BLP ) tVOLUME»EV 1610, OSNAME*CSA*«, 
//  UNIT*EU1610,0CB*IDEN*1,TPTCH-ET,BLKS!ZE-2706I 

//NEWFILE  CD  0 ISP* ( , ENOI SP ) ,UNI T*EUS AM, LAB  EL* ( , EL AB  ) , 

//  0SNAME*CSAM.S,V0LUME*EVSAM 
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be  performed  with  library  '^EST360L.  TRAINERS  is  an  indexed 
file. 

//HET1  EXEC  XRASP,  I SAf1  = TKST  SA  r,  = TPAI  NSR  ,LIB=TSST360  , X 
//  LIE1  =T  RAINER,  LIE  riSP=OLE,  YIN  DEX  = TR  A INER 

//RASP. SYS  IN  DD  ♦ 

(RASP  CONTROL  AND  SOURCE  LANGUAGE  ST  ATEM  EN 'T'S  ) 

/* 

3.9  SAM  TO  ISAM  Procedure  (XSTOIS) 

This  procedure  is  used  to  load  a tape  data  file  (SAM) 
to  disk  (ISAM).  Space  is  allocated  separately  for  INDEX, 
PRIME,  and  OVFLOW  areas.  The  procedure  defaults  these  areas 
to  1 , iO , and  5 cylihders,  respectively.  The  disposition  of 
the  new  disk  file  defaults  to  KEEP. 

If  the  input  is  ^AM  file  on  unlabeled  magnetic  tape  and 
its  block  size  is.  not  1,004  bytes,  its  block  size  must  be 
specified  with  the  BSZFILE  symbolic  parameter. 

The  BSZNEWF  symbolic  parameter  is  used  to  specify  a new 
block  size  for  the  ISAM  file.  If  it  is  not  used,  the  ISAM 
block  size  will  be  the  same  as  the  input  SAM  block  size. 

# The  procedure  also  can  be  used  to  create  an  ISAM  file 

in  the  compressi  on/compaction  form  or  to  re-create  a 
s'taadard  form  ISAM  file.  The  PARM  parameter  can  be  used  for 
specifying  the  option.  The  default  value  is  the  form  cf  the 
input  file.  The  options  are: 

PAR M=COMPR ESS  for  compression  only 

PAPM=CCMEACT  for  compaction  only 

PARM= •CCMPRESS,CCHPACT'  for  both  compression  and 

compac  tion 

PARM=EXPAND  for  reversing  the  compression/ 

compaction  process  to  produce 
standard  form  data  records 
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• All  unused  PRIME  space  will  be  filled  with  system 
generated  PAD  records.  The  PARK  option  NOPAD  may  be  used  if 
this  feature  is  not  desired,  e.y.: 

FAPK= NOPAC 

3.9,  1 Sample  Job  Setup 

The  following  JCL  could  be  used  to  lead  the  TFST3foOS 
file  from  tape-to-disb.  It  is  desired  to  increase  the  PRIME 
area  to  50  cylinders  and  catalog  the  new  data  set.  The  SAM 
file  is  not  cataloged. 

//STOIS  EXEC  XSTCIS,SAM=TEST360,PRIHE=5n,  X 

//  VSAM='SER=HYTAPE' ,ISAM  = TSST360  , X 

//  VISAM=  •SEP=MYPACK*  ,NDISP  = CATLG 

/* 

3.10  Subroutine  Loader  Procedure  (XSUBLDR) 

This  procedure  is  used  to  place  user  subroutines  cn  the 

file  library.  The  two  inputs  are  the  user  subroutine  in 
load  module  form  on  a temporary  or  permanent  data  set  and  a 
control  card.  The  MODLIB  parameter  is  used  to  specify  the 
name  of  the  data  set  containing  the  input  suLreutine.  It 
defaults  to  &TEMP  which  is  the  name  of  the  data  set 
containing  the  subroutine  it  the  ASMFCL  procedure  has  been 
used  in  a prior  step  of  the  job  to  assemble  and  link  edit 
the  subroutine. 

3.10.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  assemble,  link-edit, 
and  add  a subroutine  to  the  TEST360L  library  which  is 
cataloged.  The  subroutine  is  named  DTGIS. 

Note  ; The  HOCLID  CSNAHE  is  not  specified  on  the  EXEC  card 
since  it  defaults  to  the  CSNAME  of  the  assembler  jcb  step 
output  (&TEMP). 

//ASML  EXEC  ASMFCL 
//ASM.SYSIN  DC  » 

SUBPOUTINE  SOURCE  DECK  (DTGIS) 


/* 


JOB  FBEPA8ATION 


//STEPNANE  EXEC  XTBD I SK , STA T = YES 

//  SAM=INDEXS  Af',,VSAM='  SEP  = MY?APE'  , 

//  XFNABE=TEST3bCX,XFVOL='  SSR=nYPACK', 

/* 

3.21  Load  Index  Data  Set  Procedure  (XTRTAPE) 

This  procedure  is  used  to  reconstruct  a disk-resident 
direct  access  organization  Index  Data  Set  froa  a previously 
unloaded  sequential  access  organization  data  set.  The 
XPNAHE  and  XFVOL  symbolic  parameters  must  be  supplied  for 
the  input  tape.  The  XTNAME  and  XTVOL  symbolic  parameters 
must  be  supplied  for  the  Output  Index  Data  Set  on  disk. 

3.21.1  Sample  Job  Setup 

The  following  JCL  would  load  the  TEST360X  Index  Data 
Set  to  a 2314  disk  pack  from  a nine-track  unlabeled  tape. 

//STEPNAME  EXEC  XTRTAPE, 

//  XTNAME=TBST360X,  XT  VOL=*  SER=f1YPACK 

//  SAn=IIiDEXSAH,  VS  AP!  = ' SER=MYTAP  £* 

/• 

3.22  Keyword  Analysis  (XKA) 

This  procedure  is  used  to  obtain  printed  listing  of 
text,  non -keywords , and  keywords  that  occur  in  a data  base 
without  updating  the  index  data  set.  No  DD  card  overrides 
are  necessary,  but  a DD  statement  named  SYSIN  must  always  be 
included  tc  identity  the  user's  input.  A file  name  must  be 
specified  using  either  the  ISAM  or  SAM  symbolic  parameter. 
If  a user  scan  subroutine,  stop  word  table,  or  dictionary  is 
required,  the  library  name  must  be  specified  with  the  LIB 
symbolic  parameter. 

3.22.1  Sample  Job  Setup 

The  follcwing  JCL  world  be  used  to  analyze  keyword 
fields  in  the  TEST360  ISAM  data  base: 
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//STEPNAHE  EXEC  X K A, IS An=T EST360 , L IB=TEST 3 fcO , 

//  VISAH=*SER=«liPACK'  ,VLIB=  •SEP=RYFACK' 

//XKA.SYSIN  DC  ♦ 

(user  supplied  control  statements) 

/♦ 


3,23  Dictionary  Maintenance  Utility  (XKM) 

This  procedure  is  used  to  generate  or  update  keywords, 
stop  word  tables  and  dictionaries.  More  than  one  stop  word 
table  or  dictionary  may  be  created  or  updated  in  one  run 
provided  that  all  are  members  in  cne  library  (specified  by 
the  LIB  parameter),  stop  word  table  and  dictionary  name 
specifications,  maintenance  commands,  and  data  ate  accepted 
through  the  SYSIN  device. 

3.23.1  Sample  Job  Setup 

The  following  JCL  would  be  used  to  maintain  any  or  all 
stop  word  tables  and  dictionaries  in  the  TEST360  library. 

//  EXEC  XKM,LIE=TEST360 
//SKH, SYSIN  DD  * 

Table  or  Dictionary  Names 
Maintenance  Commands 
Data  (keyword  specs) 

/* 

#3,24  Format  Definition  Translator  Procedure  (XUTOCE) 

This  procedure  is  used  to  place  format  definitions  on 
the  user  library.  The  input  definition  statements  may  be  in 
punched  cards  or  in  card  image  records  stored  in  a library. 
More  than  one  format  definition  nay  be  added  to  the  library 
at  a time. 

>3.24.1  Sample  Job  Setup 

The  follcwing  JCL  would  be  used  to  add  a format 
definition  in  punched  cards  to  the  user  library,  TEST360, 
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//  EXEC  XUTODE,LIB=TEST360, VLIE=' SEP=MYPACK' 
//SYSIN  DD  * 

Definition  sourcf»  statement  cards. 


/* 

To  add  a format  to  the  TEST360  library  when  the 
definition  source  statements  reside  in  a library  (BYLIB)  , 
the  following  JCL  would  be  used. 

//  EXEC  XUTODE,LIB=TEST360, VLIE=*SER=MYPACK' 

//SYSIN  DD  DSN=MYLIB  (FORBAT1 ) , VOL=SER=MYPACK2, 

//  DISP=  (SHR,  KEEP)  ,UNIT=231  4, 

//  DCB=  (BECFH=FB,LRECL=80,BLKSIZE=800 

/* 

Note  that  the  definition  source  statements  may  be  cn  any 
library,  including  TEST360.  The  only  restriction  is  that 
the  source  member  name  is  not  the  same  as  the  name  cf  the 
format  definition. 
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OLDSAH 

OLDVSAH 

OSDISP 


OVFLOW 


DE?  INITIPN 

This  defines  the  name  of  the  old  SAM  file 
in  the  XTSTOS  procedure. 

This  defines  the  volume  for  the  old  SAM 
file  in  the  XISTOS  procedure. 

This  defines  the  disposition  of  the  old 
SAM  file  in  the  XISTCS  procedure. 

This  defines  the  number  of  cylinders  allocated 
to  the  overflow  area  for  a new  ISAM  data  file. 


PRIME 

iPTFJOBL 

♦PTFJOBM 

QDF 

UDFSP 

UDISP 

QRT 


This  defines  the  number  of  cylinders  allocated 
to  the  prime  area  for  a new  ISAM  data  file. 

This  defines  the  data  set  name  of  a partitioned 
data  set  conta ining  the  PTF  load  modules. 

This  defines  the  data  set  name  of  the  partitioned 
data  set  containing  PTF  generative  code  macros. 

This  defines  the  name  of  the  RASP  qualified 
data  file  if  other  than  a temporary  name  is 
required. 

This  defines  the  space  allocation  for  the  RASP 
qualified  data  file. 

This  defines  the  disposition  of  the  RASP 
qualified  data  file  and  qualified  record 
table. 

This  defines  the  name  of  the  RASP  qualified 
record  table. 


QRTSP 

This  defines 
qualified  rec 

SAM 

SAMI 

SAM  2 

These  define 

the  space  allocation  for  the  RASP 
ord  table. 

SAM  data  file  names. 


SAMI N This  defines  the  SAM  data  file  name  for  the 

XTRDISK  procedure  when  requesting  tne  stat- 
istics option. 


ill 


PARAMETER 

SEQNO 


SDISP 

SLAB 

SAHOUT 

SORTSP 

STAT 

STG 

SOORCL 

TBLK 

TDISP 

TRAN  S 

TRANSP 

TRANTYP 

TRBOFNO 


rEPINITION 

This  t-araraeter  defines  the  data  set's  position 
with  respect  to  other  data  sets  on  the 
volume . 

This  defines  the  disposition  of  the  user's 
source  library. 

This  defines  the  label  type  for  sort 
«or)t  tapes. 

This  is  used  tc  control  the  allocation  of 
the  FHSAHOUT  and  FMNDATA  data  sets  in  FM. 

This  defines  the  cylinder  allocaticn  for  disk 
scrt  uork  areas. 

This  requests  the  statistics  option  for 
for  XTBDISK  index  utility. 

This  defines  the  unit  type  for  sort  work  areas. 

This  defines  the  user's  source  library  names. 

This  defines  the  blocksize  for  the  File 
Analysis  Statistics  transaction  data  set. 

This  defines  the  disposition  for  the  File 
Analysis  Statistics  transaction  data  set. 

This  defines  the  File  Analysis  Statistics 
transaction  data  file  name. 

This  defines  the  space  allocation  fcr 
temporary  storaqe  of  update  transactions 
viith  the  sort  key  and  loqic  statement  name 
appended . 

This  defines  to  the  FH  component  the  data 
set  containing  records  to  be  used  as  trans- 
actions during  execution  of  FR.  Default 
value  is  ISAM.  The  value  for  this  para- 
meter is  either  ISAM  or  SAM  and  denotes 
the  access  method  associated  with  the  file 
being  revised. 

This  defines  the  number  of  buffers  used  by 
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TRCH 


D5F  INI  TION 

seme  of  the  transaction  temporary  data  sets. 

This  specifies  the  TRTCH  DCB  parameter  for 
seven-track  tapes. 
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SOUPCLIB  Defines  a library  used  to  store  source 

Eater ial. 

•SYSUT1  Teiporary  data  set  for  INDEX  Specification 

statenents  to  be  processed  by  the  INDEX 
Speci f ication  processor,  IXSP,  which  builds 
descriptor  (D)  records  for  the  file. 

SYSIN  Defines  the  input  source  statements  for  FS. 

This  statement  must  be  supplied  by  the  user 
as  //FS. SYSIN  DD  *. 


ggOC  Epgp  E;  XFR  (File  revision) 

The  following  DC  statements  appear  in  the  FR  and  FRTST 
steps  of  this  procedure.  For  a description  of  all  other  DD 
statements,  refer  to  the  XFM  procedure. 

STEPLIB  Defines  the  NIPS  system  library. 

SYSOUT  Defines  a printer  output  data  set  for  sort 

messa  ges . 

SYSPPINT  Defines  a printer  output  data  set. 

SYSODUBP  ABEND  dump  printer  output. 

STSPUNCH  Defines  a punch  output  data  set. 

OLDFILE  Defines  the  ISAM  data  file  to  be  revised. 

SAMFILE  Defines  the  SAM  data  file  to  be  revised. 

DATAFILE  Defines  a data  set  containing  the  new  FFT. 

TDDFCDS  Defines  a temporary  data  set  for  generated 

TDD  cards. 

POOLRCDS  Defines  a temporary  data  set  for  generated 

POOL  statements. 


FRVSNA  Defines  a temporary  data  set  containing  first 

24  generated  logic  statements. 
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FRVSN  B 

Defines  a temporary  data  set  containing  second 
group  of  2U  generated  logic  statements  if 
needed . 

FR?SNC 

Defines  the  temporary  data  set  containing  a 
third  group  of  24  generated  logic  statements  if 
needed. 

FRGENCD 

Defines  the  temporary  data  set  FMS  control 
card  for  file  generation  steps;  passed  to 

GENT  and  GEND  steps. 

SOHTLIB 

Defines  the  S/36(  Operating  System's  Sort 
library. 

SOHTIN 

Defines  the  tempora,^  data  set  containing 
intermediate  work  records  to  be  sorted. 

SORTWK01 

through 

SORTWKOB 

Defines  the  work  data  sets  used  by  SORT. 

They  must  all  be  the  same  unit  type. 

SORTOUT 

Defines  the  temporary  data  set  for  sorted 
intermediate  work  records. 

SYSIN 

Defines  the  input  source  statements  for  PR. 

This  statement  must  be  supplied  by  the  user 
as  //FR. SYSIN  DD  *. 

TRANTYP 

Defines  the  DD  card  to  be  used  for  input 
transaction  to  FM. 

ISAM 

Defines  to  FN  where  update  transactions  may 
be  found.  Entries  in  this  DD  correspond  to 
the  OLDFILE  DD. 

SAN 

Defines  to  FH  where  update  transactions  nay 
be  found.  Entries  in  this  DD  correspond  to 
the  SAMFILE  DD. 

JOB  PRBPAPATION 


Pr  oc  u r e : 

SYSPPIVT 

SYSUDUHP 

DATAFILE 

SAHFILE 

ISAH  WORK 

SYSUT2 

TRAN  ST 

SYS  IN 

SOURCPFT 
SOORCLI B 

SYSIN 


YUTFSCAN  (field  Scan) 

Cefines  a printer  output  data  set. 

ABEND  dunp  printer  output. 

Defines  the  ISAM  data  file. 

Defines  the  SAM  data  file. 

Defines  temporary  ISAM  data  set  if  a SAM 
data  file  is  input. 

Defines  partitioned  data  set  containing 
meabers  to  be  scanned. 

Defines  the  data  set  for  output  trans- 
actions. 

Defines  input  stream.  This  card  must  te 
supplied  by  the  user  as  //DTP. SYSIN  DD  *. 

Defines  a printer  output  data  set. 

Defines  a library  used  to  store  source 
materia  1 . 

Defines  the  input  to  the  UTSOtlRC  utility. 
This  is  not  overridden  if  a LIST  operation 
is  desired.  This  statement  is  overridden 
if  library  update  is  to  be  performed. 
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Pcoc  edure: 

XSP  (Index  Specification) 

STEPLIB 

Defines  the  NIPS  systeni  library. 

NEWFILE 

Defines  the  indexed  sequential  data  file  created 
during  an  FM  run. 

XINDEX 

Defines  the  Index  Data  Set, 

SORTWK01 
thro  ugh 
SOHTWK06 

Defines  the  S/360  Operating  System's  Sort 
work  data  sets. 

SORTLIB 

Defines  the  S/360  Operating  System's  Sort 

Library . 

SYSOUT 

Defines  a printer  output  data  set  for  Sort 
messages. 

SYSPRINT 

Defines  a printer  output  data  set. 

SOURCPRT 

Defines  a printer  output  data  set  for  Index 
Specification  messages. 

SYSUDUHP 

ABEND  dump  printer  output. 

SLIB 

Defines  the  user  library  containing  subroutines/ 
tables . 

#S&nFILE 

Defines  a sequential  data  file 

# UTS  ABOUT 

Defines  the  updated  sequential 
data  file. 

ISAflrfORK 

Defines  the  temporary  ISAB  data  set  containing 
the  FFT  during  sequential  file  processing  in 
Index  Specification. 
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//*Tnni';K  proc  a =«  ,cl  = * , '.cl  i- • . • , johl  j islib*  , 

//  ltP=eiP,RGN  = 60K,SA''=,USAM=i(TAPF°,,Cf'''‘‘=)*, 

II  PTF  JOP.L  PTF  . JOBL  I P • . 

II  VSAP=,KPni';P=SHP,XFNAMF=,XFUMT  = 2314,X''VCL  = 


//* 

11*  THIS  PRCC  IS  USED  TO  TRANSFfP  A 0 1 SK-P ^S ; DF AT  [ACEX  DATA  SET 

H*  TC  TAPE.  THIS  PPPRATIOM  CONDENSES  thE  INDFX  DATA  SFT.  TMF  xap£ 
II*  *Z  CRFA’’EP  IS  A SF3IIFNTIAL  DATA  S^T  CONSISTING  OF  VARIABLE  LENGTH 
H*  BLOCKED  RECORDS  THAT  CONTAIN  ThF  SOURCE  DATA  AND  CONTROL 
H*  INFORMATION  FDR  SUBSFQUFNTLV  P FCPNSTRUC T I NG  TH=  SOURCE  DATA. 

//♦ 

II*  //stepname  exec  XTRDI  SK,XFNAPF=V<W,  SAm=xX ,XF  VCL=YY ,VSAM=2Z 

//  * 

II*  CHARLES  R.  MICKISCH  “AJOK.USA  PRCJ  CODE  = 763MPS  BRANCH=<til 

II*  TATF=MARCH  I,  ID7R 
//* 

//*»«**«*******>'4<X««i^  **«*<**»****«  *»•»<*»***»**«<  »»*****•«***  *»****»« 

//• 

K/Xr,  cxfc  PGY=uTNPXTFfi,PARM=DISK,REGICN=tRGN 

//S>fplIB  do  d isp=shR, DSN=CPTF JOBL 
/!  OD  DISP='SHR,0SN=£J0BLIB 

//'■JOEXDAM  pd  rs*  =tXFNAMEtUNI  T = £XFLNIT,VOL=tXFVCLf  CISP=£Xf  DISP 

X/I“.nEXPPT  OC  SYSOUT  = ( EA  ,CCL  1 

//I‘;DEXSAB  Dp  n‘^N  = £SAH, UNI  T=euSAM,VCL  = tVSAM,DlSP*(NFH, KEEP)  t 

! ! LABFL  = ( ,£LAB) 

//SVcpBiNT  DP  SYSDUT=( CA ,CCL ) 

//S>SU0UMP  DO  SYSCUT=(tA,CCLll 


ODDCOiOO 
OOOOOl  ID 
OOC0320C 
00000300 
» 00000400 

« oocoosoo 
* 00000600 

♦ 00000700 

♦ OCCOOROO 

• 00000900 

* 0000  100 0 

* OOOOLIOO 

* 00OC120C 

* 00001300 
00001400 

0000  I soo 

* 000016CO 

* 000017CC 

* OOOGIPOD 
00OC190O 
OOCO’OOO 
OCC02010 
000C2100 
0000220C 

• OOCC230'; 
00002400 
0COO2SOC 


*.'JPS  36C  ='■5 


PRCCfOURfS 


//X3'’PTAPF  PROC  A =A  ,CL  = ’ t • tCL  1 = • . • . JCBLIc^'FF  jrPLI  P*  . OOSOOlOO 

//  LAe»PL'',NBHBLK-S0,or.N*6CK,StM-,  OCO  00^00 

//  PTF jrPl =• PTF . JCPL IP • . 00000210 

II  u'ii'M  - ' ( FAPf  q,  .''r«-rF  ) • , , xFo  I SP  = ri  0,  coooooior 

//  XTP I Cp^ • ( NFW ,KFEP) • r XTBAMF* , xTUM T=2 3iq , XTVOL-  OOOOOaOO 

//•  • 0000060C 

//♦  this  PROC  IS  USED  TO  RECCNSTRUCT  6 CISK-RESICEM  INCFX  DATA  * 00CC07C0 

//*  SET  FROM  A PREVIOUSLY  UNLOADED  SECUENTJAL  VFkSION  CF  THE  INDEX  * 00000800 

//•  data  set.  ♦ 00000900 

//*  • 00001000 

//♦  //STEPNAME  exec  XTRTAPE,SAM=:wv.,XTNAPF  = XX,USAM=:VY,XTvnL  = Z7  * OOCOllOC 

//*  * 00001200 

//♦  CHARlFS  1«.  HKKISCH  HAJOR.USA  PPCJ  CCDE  = 763MPS  eRANCH  = 43l  O0C0I30O 

//*  OATF=HARCH  1,1974  00001400 

//*  ♦ 00C01500 


//XTP 

//STEPLIP  on 
//  no 

// ISOFXPRT 
// IMDCXSAM 
// 

//SYSPP  IN’’ 

//svsunuNP 

//X  INDEX 
// 

// 


EXEC  Pr,M=UTNrxTFR  , PAR  P = TAPE  , REGION*  CRGN 
C ISP*SHR,DSN= tPTF  jnPL 

n ISP*SHR, OSN  = t JCRLI B 
nr  SYSouT^icA ,ccL ) 

nn  HS^4,t<;AM,UNI  T^KUSAH,  VOL*£VSAM,n?SP=£XFOISP, 
LABEL  *<  .tLAB) 

DO  SYSOUT*! tA  ,£CL ) 
on  SYS0UT*( £A ,£CL I I 

on  nSN=£XTNAME ,UNI T= £XTUN I T , VCl * £XT VOL , 

0ISP  = £ XTni SP.SPACE* (S6C .LNBRBLK ) , 

DCB*( BLKSl ZE*560,PFCF9*F ,KE YLFN=4,nSC0G=CA 1 


uOOOlhOO 
00C01700 
OOOO’.BCO 
00C0181C 
OOCO190O 
COOC02000 
OOOC2100 
0COC2200 
00002  300 
•O0C0240C 
C00002SOC 
00002600 
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DEFENSE  COMMUNICATIONS  AGENCY 
COMMAND  AND  CONTROL 
TECHINCAL  CENTER 
WASHINGTON.  D C 20301 


15  October  1977 

HEfER  TO 

TO  DISTRIBUTION 

SUBJECT:  Change  3 to  CSM  UM  15-74,  Job  Preparation, 

Volume  VIII,  dated  15  October  1974 


1 . Insert  the  enclosed  change  pages  and  destroy  the 
replaced  pages  according  to  applicable  security 
regulations , 

2.  A list  of  Effective  Pages  to  verify  the  accuracy  of 
this  manual  is  enclosed.  This  list  should  be  inserted 
before  the  title  page. 

3.  When  this  change  has  been  posted,  make  an  entry  in  ^.he 
Record  of  Changes  on  the  inside  cover. 
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Section  1 

INTRODUC'^ION 


This  volume  is  intended  to  faiiliarize  the  user  with  the 
features  available  using  NIPS  360  FIS  Jot  Prefaration 
procedures  and  the  manner  in  which  they  ace  used. 

Section  2 describes  symbolic  parameters  and  file  naming 
conventions.  It  also  illustrates  general  approaches  to 
running  jobs  using  single  or  multiple  data  bases  and  file 
libra  ries. 

Section  3 contains  JCL  examples  for  each  component  and 
additional  information  pertinent  tc  each  procedure. 

Section  <4  contains  JCL  examples  for  S/36C  Utilities 
which  are  used  to  dump  and  restore  RASP  answers  and  the  User 
File  Library  frcm  disk  to  tape  and  vice  versa. 

Section  5 describes  procedures  which  are  used  in  File 
Maintenance,  Output  Processing  and  the  Retrieval  and  Sort 
Processor  component. 

# Section  t describes  the  procedures  and  considerations 
necessary  to  create,  maintain  and  process  NIPS  data  bases 
using  the  S/370  Virtual  Storage  Access  Method  (VSAM). 
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rrAIUr’S  0?  NIP??  C F"c  PSCC’Crj^’F 


.rpf^  -x^Q  CPC  in^  1* -sr«t>  ci‘-.iiojf!i  pro^elures  jsinj 

3ynh'  lir  p ir  *-r  s.  'T^  ifi  dlloi^s  ■=«  is^r  *o  run  all 

?P.j  'ohs  <i*h  no  DD  M”.  d*  eii*)n*’  ove>rrid=»s  unle.is  on*;  of  the 
roll'winq  conditions  exist: 

d . ?ASP  CF,  or  jTTP  r in  with  a ore  than  ‘•hree  datd 
hasc-s  and/or  tore  ‘■hin  ♦•hree  file  libraries 

b.  ??5  run  with  transacticn  source  frca  tape 
or  .!  i sk, 

t . Fr.  r un  with  auxili-iry  ou‘pijt  on  tape  or 
d isx 

d.  OUIP  t'ln  storin'!  ^ query  into  a user  library. 

e.  0?  run  with  recot  i Ci*-p'it. 

■"he  proceiures  provide  a corventicn  for  raxing  user 
da»  a files  and  file  libraries  which  will  be  discussed  ir. 
subsequent  paragraphs. 

2."'  yxbolio  pacax^ters 

.yxbolic  parameters  siaplify  "he  cverridin'j  of  PP 
St  t x*:.  *•  s in  the  execution  of  jobs.  Basically,  they  allow 
th-'  itrer  »o  equate  naies,  units,  and  voluaes  to  symbolic 
pari.et;.L3  in  the  EX  iC  card  without  rcncern  fer  the  st“p 
name  or  th=i  crier  ct  DD  cards  within  a procedure.  The  use 
of  yataolic  parametars  do<»s  rot  preclude  the  overriding  of 
00  carls.  A no  card  override  takes  precedence  over  syaboiic 
caran^tocs.  Fach  procedure  has  detault  options  for  every 
symbtli'-  parameter  not  referenced  by  the  user  in  his  tun. 
see  evaapdos  in  section  2.'^. 
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If  the  input  is  a SAM  file  on  un labeled  macnetic  tapi 
and  the  file  tlccA  size  is  not  1,00^,  use  synholic  parameter 
BSZFILS  to  indicate  * he  input  file's  block  size. 

In  some  cases,  the  user  may  need  to  provide  >ICL 

information  that  is  net  included  in  the  procedure. 
Overriding  EC  cards  must  have  a EC  statement  name  which 
includes  the  stepname  (F  M)  and  the  name  cf  the  DC  statement 
to  which  the  override  applies.  All  override  DD  cards  must 
be  placed  in  the  order  that  they  appear  in  the  procedure. 

If  the  transacticn  source  is  a single  tape  or  disk  file, 
the  user  must  include  an  override  DD  sta'^esent  ramel 
FPl. TRANS  which,  specifies  the  DSNAME,  EISP,  UNIT,  end  VOLUME 
parameters  plus  the  DCB  parameters  if  the  transaction  file 
is  an  unlabeled  tape.  when  multiple  transaction  sources  are 
to  be  used  in  an  FM  execution,  the  user  must  provide  a DD 
statement  for  each  source.  The  EC  statement  must  be  named 
PSTR ANxx  fet  sequential  tape  cr  disk  transactions  and 

ISTRANxx  for  ISAF  MES  files.  The  XX  may  be  a unique  user 

specified  ID  for  each  DD  statement.  Parameters  to  be 
specified  in  each  of  the  added  transaction  DD  statements  are 
the  same  as  those  required  in  the  FN. TRANS  DD  statement. 
The  FM. TRANS  override  DC  must  not  be  used  when  utilizing  the 
multiple  transaction  source  capability  as  it  is  used  for 
describing  single  source  transactions. 

The  following  CC  statements  would  be  requited  only  if 
the  user  is  producing  auxiliary  output  files  by  using  the 
NRT,  hT2  ,WT3 , HT4  or  HT5  instructions  in  his  logic  statemen'-. 
These  statements  oust  include  the  DSNAME  jiarameter  and 
should  include  UNIT,  VOLDHE  and  DISP  parameters.  If  the 

user  specifies  a direct  access  device  fer  output,  he  must 
also  include  a space  parameter.  DCB  parameters  should  be 
specified  if  ether  than  standard  parameters  are  desired. 

A DD  statement  nated  FM.AUXI,  is  used  to  identify  the 
name  given  tc  the  first  auxiliary  output  file.  This  file  is 
produced  by  the  POOL  instruction  WRT. 

A DD  statement,  FB.AUX2,  is  used  to  identify  the  name 
given  to  the  second  auxiliary  output  file.  This  file  is 
produced  by  the  POOI  instruction  HT2. 
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A !D  Statement,  is  us>’d  ♦■o  id^n+ify  the  name 

qive:,  to  the  -hird  auxiliary  outpu*-  file.  Tlis  file  is 

produc*:".!  by  th‘=  POOL  insirurticn  Vii3. 

A po  s 1 1 1 emer. is  used  ’■o  identity  the  name 
jive:,  to  the  fourth  auxiliary  output  file.  This  file  is 

produced  by  the  POOL  instruction  Vl4. 

A DP  statement  P.t.ALXh,  is  used  to  identify  the  name 
ijiver  to  the  frith  auxiliary  output  tile.  This  file  is 

urod'ico'i  by  the  POOL  instruction  W15. 

A DD  statonionT  must  always  be  used  to  iderxtify  the 
i ' s input  deck.  The  format  cf  ‘■his  card  is  (//F^.SYSIN 
DD  *.).  This  is  fcllowed  by  •■he  user’s  input  deck,  followed 
i)  y a /*  card  to  indicate  the  ^nd  of  •■he  input  deck. 

xamole-;  ct  * ypical  P”  run  decks  follow. 

"he  ev  ccipcnent  is  designed  to  use  a disk  sort  provided 
ennuoh  disk  sort  work  space  (DD  cards  30PT»i  k0 1 -06)  is 
available.  The  f«  component  required  this  space  to  sort  the 
trarisactions  prior  to  their  being  added  to  the  data  file. 

As  •■hese  ♦- ransacti  ons  are  p.rocessed  by  prior  tc  sorting, 
hk  ■aiculT’es  the  amcur’  of  disk  space  required  for  the 
sort,  anl  it  •■his  space  is  not  available  it  will  de^'ault  to 
a t.ipe  sort.  when  this  occurs  the  following  r,D  caids  must 
he  a;ded  r o •'he  stardaid  procedure: 

//'•' AP  - K C 1 Ct  parameters  defining  a ‘^-track  tape  unit. 

//■"APFWKOr  DD  parameters  defining  a b-track  tape  unit. 

//TAPEKKC!’  DP  params^-ers  lefirirg  a ^-track  tape  unit. 

//-AP®’Wk0  4 DD  i<  31  am  er:=:  defining  a track  tape  unit- 

# r r.  tddi*’ici.,  if  the  number  or  transactions  necessitates 
that  .SC"'’’IN  and  fOPTOHl  will  certain  more  than  one  tape 
voium->,  the  followir.g  JCL  changes  ar®  needed.  Otherwise, 
only  •■  he  transactions  on  the  la  st  volume  specified  on  your 
VOL',)' parameter  will  be  used  to  update  the  fil^. 

//F.t.  SOF-TN  DP  tJMT=  (2600,  , DFFEF)  , yOL=SEF=  ( 

//’='T-SOPTOUT  DD  U N t T=  AF  t' = SOFT  I N , VCL  = SE  R=  ( some  tapes  as  SCPTIN) 


16 


CH-3 


JOB  PFSPARATION 


The  above  DD  cards  are  not  distributed  with  the  standard 
procedure.  The  space  defined  for  the  disk  sort  wcrk  area  is 
adequate  fci  nest  applications. 

When  generating  an  ISAM  file,  space  allocation  in  terms 
of  INDEX,  FEIMF,  and  CVFLOW  areas  must  be  specified  fer  the 
new  file.  This  is  dene  utilizing  the  INDEX,  PRIME,  and 
OVFLCW  symbolic  parameters.  These  parameters  default  tc  1, 

5,  and  1 cylinders  respectively.  Fcr  example,  if  1 cylinde 
of  index,  20  cylinders  of  prime  area  and  5 cylinders  o 
independent  overflow  area  are  desired  when  generating  th 
TFST360  file,  the  fcllowirg  EXEC  card  would  be  coded: 

//FMGEN  EXEC  XFH , GE N= , I SA M = TE ST36 0 , PRI M 20  , C V F 1CW  = 

The  XFM  procedure  will  also  maintain  SAM  data  files 
The  use  of  the  SAM  cr  ISAM  parameter  specifies  the  type  o 
input  file  to  File  Maintenance.  The  type  of  file  mus 
always  agree  with  that  specified  on  the  EM  centre!  card 
with  one  exception.  A SAN  file  may  ^ generated  from  a 
ISAM  FFT.  For  this  one  exception,  the  ISAM  symholi 
parameter  would  be  used  to  specify  the  input  FFT  and  the  F 
control  card  would  specify  'TAPE'. 

When  updating  a SAM  file,  the  updated  file  will  rcrmall 
he  written  on  the  data  set  (tape)  specified  by  '■he  EMSAMOU 
DD  statement.  However,  if  any  record  controls  ate  being 
changed  by  use  cf  the  MCT  or  MC S FOOL  instructions,  the 
updated  file  will  be  '«ritten  on  the  data  set  (tape) 
specified  by  the  FHNDATA  DD  statement.  These  data  sets  are  < 

normally  written  on  a nine-track  tape.  A message  is  written 
on  the  console  stating  the  file  name  and  which  tape  is  to  be 
saved  at  the  completion  of  FM. 

The  XFM  procedure  is  generalized  since  it  has  a variety 
of  applicatiens;  SAM  or  ISAM  data  files  in  either  the 
generate  or  update  mode.  To  avoid  possible  run  terminations 
due  to  insufficient  space  for  the  NFHFILS  DD  statement, 
special  provisions  have  been  made  to  DUMMY  this  statement  in 
the  XFM  procedure.  Also,  this  statement  must  be  CUMMY  when 
updating  a multi-volume  ISAM  data  file.  No  space  will  be 
allocated  fcr  this  statement  unless  GEN=  is  coded  on  the 
EXEC  card.  Coding  of  GFN=  on  the  EXEC  card  is  applicable 
for  an  ISAM  generate  run  only.  Special  consideration  has 
been  directed  to  the  FMSANOUT  and  FMNEATA  DD  statements. 
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1 

Th-''S-  f'P  St  at  eir.ciiti;  have  b^^r.  ^-ut  to  DlJPKlf.  They  should 
teaaii.  in  th‘='  Pt'^py  s’-atus  for  all  ISAP.  runs.  For  all  SA '» 
runs,  th*"’  user  lust  cole  SA10l]T=  cr  the  execute  card  to 
allow  allocdtior.  of  the  '•'ISAP.C'IT  and  FMN1ATA  da'-a  sets 
(tap -s)  . 

^urinq  COP  and  LIB  irode  runs,  if  the  FP"'  and  logic 
stat’  merits  are  on  a sequential  file,  no  library  acticn  will 
lie  performed.  However,  the  XFP.  prccedure  may  be  used  for 
iebujginq  a logic  statement.  if  the  FFT  is  cn  an  indexed 
sejui^ntidl  tile,  litriry  at-tion  may  be  performed  and  logic 
sta»  ments  say  be  added  to  the  litrary. 

In  FP.  the  default  fcr  the  processing  flccK  size  is 
16, OCC  oytes.  The  user  may  override  this  size  by  using  the 
P AF 1- ' PtlSI  2 E- n K ’ or  PABM='PB=nK'  parameter  on  the  FXEC  card, 
where  r.  may  ft  any  integer  frcro  1 tc  99  inclusive. 

i.1.'  Sample  job  Setup 

"he  fcllcviing  examples  generally  use  the  ISAP  syatclic 
parameters.  Except  where  ncted,  these  same  examples  can  be 
used  for  '^AH  files  by  using  the  SAS,  VSAM  and  USA.H 
[ a ra  iii'^t'^rs  in  place  of  the  respectiv‘=  ISAH  parameters.  The 
F."!  ccr.trol  card  must  alsc  be  chanied  to  TAPE  instead  of  EISK 
file  uplate.  Fol  SAK  tiles,  S?*10nT=  must  be  ccdec  cn  the 
EXEC  card. 

1 a.  Ccmp.ile_i,og  ic_St  atemgnt  s_Only  - The  following  FF 

cun  deck  would  he  used  to  compile  logic  statements 
for  the  TFST360  file.  The  purpose  of  this  run  is 
to  produce  listings  of  the  logic  statement  source 
cards  for  use  in  debugging  new  logic  statements. 
This  type  cl  run  would  be  used  as  the  first  step  in 
setting  up  a new  file.  The  file  is  rot  catalcqed 
bu*  resides  cn  a 23lu  disk  pack. 

A ty  i'-il  cun  deck  follows: 

//  EX'^C  XFM,TSA.'1  = TSS'"  360,VTSAF='SSF=KYf’ACK' 

' //FM . SYS  I *I  TE  • 

.FF*1."/C0.':  ,TEST360 


fOCTC  STATEflFN’T  LIBnA»iY  UPDATE  CECK 
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/* 

b.  Bgdate  Logic  State  Bent  I^ibtary  - The  following  run 
decA  could  be  used  to  update  the  Logic  Statement 
Library  for  the  TEST160  file  which  is  catalcced. 

//  EXEC  XFP, IS A«=TEST360 

//FM.SYSIN  DD  ♦ 

$FMS/LIB,TEST360 

• • 

. LOGIC  STATEMENT  LIBBAPY  UPDATE 

/* 


If  the  file  is  a SAM  file,  logic  statements  can 
only  be  added  during  a GEN  cr  DPD  run. 

c.  Update  a File (Car d_Tr angact jogsi  - The  fcllcwing 

deck  could  be  used  to  update  the  TEST360  file  using 
card  transactions.  The  first  transacticr.  report 
name  is  ONE.  The  second  report  name  is  TWC.  The 
user's  subroutine  library  is  named  TEST36CL  and  is 
cataloged.  The  processing  block  size  will  be 
increased  from  16,000  bytes  to  20,000  bytes. 

//  EXEC  XFM,ISAH=TEST360  ,LIB=TEST360, 

//  PARM=  •PBSIZE  = 20K' 

//FM.SYSIN  EC  * 

$FMS/UPD,TEST3€C,0NE 

• 

. TRANSACTIONS  FROM  REPORT  ONE 
. NEW  REPORT  TWO 
. TRANSACTIONS  FROM  REPORT  TWO 

/♦ 

d.  Update  a ^Taoe  Transactions!  - The  following 

deck  could  be  used  to  update  the  TESIiSC  file  with 
tape  transactions.  The  transaction  report  name  is 
XYZ.  The  transaction  file  label  is  TAPXACT  and  it 
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rosi'les  on  tapf  with  th»'  vclu.n“  lab^l  12^4,  ThP 
instaliat  ion  has  2U00  tap®  drives,  and  th« 
transaction  tape  has  standard  labels. 


//  ""XEC 
//'=‘K.  IRA  NS 
// 

//F!*.  SYS  TN 
j.F'-  S/UP  r , TP 
/* 


XFM  , I £AM  = 1F  LI  L’  = lEST3bO 

rr  uSRAF5='’' APXACT,nNTT=2400, 
VCLIIKF-3SR=  12  34  ,DISF=CLU 

rr  • 

■ljftC,XYZ,,UISK,TAPE 


Ccn  f 1 1 fc L £3  jc St  a teme  n 1 JJxd  a is a Ri  If llage 

""ransact  ionsli and lied  ucf I «£_  _Ta£e 

QyiiyiS  “ T'f’'  Ilcwinq  run  dork  could  hf  used  to 
ccifile  ic^jic  s*ateapr.t£  and  update  t-.e  file 
'^EST.IbC  with  i "apo  transaction  file  labeled  TAPPX. 
The  transac*:ion  tape  volume  label  is  2345.  The 
transaction  r6;crt  name  is  ABC;  2400  series  tape 
drives  are  available  foi  mounting  *apeE.  Two 
auxiliary  output  taper  are  produced,  naro^d  AL’0I’’A 
and  AUDITB.  These  are  to  be  produced  on  tapes  with 
serial  numbers  '^APFA  and  'APFB, 


FX  EC 
•^P  ANS 


AUX  1 


// 

//FK 
// 

//FX 
// 

//’=’•'  . AJXl 
// 

//’=■'!  .SYSIN 


XF«,  1SA?  = T’-'ST  3b0,LIE  = ''FST36  0 
rC  i;ShAKE  = TAP’='X,UNIT  = 24CC, 

VCLUNE  = .SEP-  23  4 5,  DI?  E = CLC 
DO  DS  KAXE=A  CDITA,  0NI':  = 2400, 
VCLUXF  = SER=rTAPEA,  niSP=  (,K  *FP) 
DD  I S N A .1 E = A CP  T B , n N 1 1 =2  4 0 0 , 
VCLI!N.E=SEF-TAP':B,  DI.SP  = (,KEEP) 
DP  * 


S''“.S/UPD,'”E  •''36  0,  ADC,  IS,mSK,f  APF 


H-GTC  STMEf'EN'n  TIHRA^Y  l.’PDAT’’  DECK 


t.  Compile  ic__®Xal:§™£Ll__dnd SfHeiaxe a Filf 

l£4td_Ti,ausactionsi  - The  following  run  deck  ccuid 
be  used  to  compile  logic  statements  for  a TFETdbO 
file  ai.d  ‘a  jenorate  the  TEST  350  file  using  card 
transaction;.  The  ttansacticn  report  names  are  A 
and  E.  Tt'’  users  subroutine  library  is  named 
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TEST36CL.  The  index,  prime  and  cverfiCK  areas  for 
the  generated  file  are  1,  25  and  10  cylinders, 
respectively. 


//  EXEC  XFM,ISAM='IEST360,LIE  = lES'^3f)0, 

//  FBI ^£  = 25, CV FLOW  = 10, G5N=, INBEX=  1 

//FM.SYSIN  DD  * 

FFMS /GEN, TEST  360, ,LS,DISK 

LOGIC  STAIEKEN'I  LIEBAP.Y  UPCAIE  EECK 

* 

. NEW  REPORT  A 

« 

. REPORT  A TPANSACTIONS 

. NEW  REPORT  B 

* 

. 'REPORT  E TRANSACTIONS 

« 

/* 


If  a SAB  file  were  being  generated,  the  PRIME,  INDEX  and 
OVFLOW  parameters  wculd  net  be  used. 

3 • Generate  an  ISAM  File (Card  Transactions)  Using  the 

FFT  and  Logic  Stateaept  Library  of  Another  File 
The  following  run  deck  could  be  used  to  generate  a 
file  having  the  same  EET  and  Logic  Statement 
Library  as  an  existing  file,  (The  data  base  of  the 
new  file  must  still  be  supplied  via  transaction 
inputs.)  It  is  assumed  that  the  input  data  file, 
TEST36C,  is  cataloged  and  that  the  required  logic 
statements  have  been  added  tc  the  Logic  Stateroeu*^ 
Library.  The  new  file  will  be  named  MYFIIE,  and 
will  be  generated  with  card  transactions.  At  the 
end  cf  the  FM  run,  both  TSET360  and  MYFIIE  will  fa? 
cataloged  data  sets.  The  transaction  repent  name 
is  REPORT.  The  user's  subroutine  library  is  named 
.SOBS  I and  is  cataloged. 

•t»C  1IFB,ISAP=TEST360,LIE=3UES,GEN  = 

rn  « 

. - (f.REKRT 
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TP  AN 


SACTTChS  FOP 


FF ECFT 


/♦ 

I 

u.  lISAf_FFT]_  - For  OEN  mode  sequ- 

ential processing,  the  input  file  containing  the 
FFT  (and  logic  statements,  if  desired)  nay  he 
either  a sequential  cr  ar  indexed  sequential  file. 

The  following  is  an  example  of  using  card 

transactions  to  generate  a SAM  file  from  an  ISAM  ( 

file  consisting  of  FFT  and  logic  statenents.  The 
TESTdtC  file  is  cataloged.  The  sequential  data 
file  will  fce  cataloged  at  the  end  of  the  ptccessing 
with  the  name  specified  cn  the  FMS  ccntrol  card 
padded  with  a suffix  character  of  'S'. 

//  F>:EC  vpM,iSAM=TESr  ">60,  samout  = 

//FM.SYSIN  PC  ♦ 

$ FMS /OEN,TEST3e0,FPT,, TAPE, CAPO 


. PANSACTIONS  FOP  REPORT  RPT 

/* 


No+e  that  GEN=  is  not  coded  on  the  EXEC  care  fer  a 
SAM  generate  tun.  It  cnly  applies  to  an  ISAM 
generate  run.  Note  also  that  SAMOUT=  must  be  coded 
on  the  EXEC  card  for  any  EM  run  that  procuces  a SAM 
outpu*:  file.  The  Indexed  sequential  data  file  will 
he  cataloged  at  the  end  of  the  processing.  If  a 
qualified  data  set  name  was  used,  and  the  last 
segment  of  the  name  matches  the  name  or  the  FMS 
rcntrcl  card,  the  fully  qualified  nam®  will  he  used 
as  the  catalog  en*-ry. 


// 


1.  dp-jatf  a SAM  File  and  Add  Logic  Statements  - For 
UPC  icde  sequential  processing,  the  input  tile  must 
be  a sequential  file  a rd  SAM0UT=  must  he  coded  on 
•■he  EXEC  car  d. 

£>FC  XEM, SAM=TE3r360  ,SAMOqT  = 
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//FM.SYSTN  CD  ♦ 

$ Fr.  S /UPD,  TEST  3 6 C,PPT  ,LS,  TAPE,  CARP 
• • 

. LOOIC  STATEMENTS 
. TRANSACTICNS  FOR  FEECET  R PT 


/* 

Note:  Although  the  sequential  file  is  catalcqel 
with  a suffix  character  'S',  it  should  be  specified 
without  the  suffix  on  the  FMS  control  card  and  the 
execute  card. 

i-  Generate  a First  Segment  From  an  FFT  - The  follow- 
ing JCL  and  input  control  cards  would  be  used  to 
generate  an  initial  segment  from  an  ISAM  file  ccr- 
sisting  of  FFI  and  logic  statements. 

//  EXEC  XFM,ISAM=TEST36C,SABCLT=, 

//  LAE=SL 

//FM.SYSIN  DB  * 

$PMS/GEN,TEST36C,PPT, ,TAPE,CARD, SEG 
$SEG  M00001  [-100999 

. CARD  TRANSACTION  FOR  REPORT  PFT 


/* 

K.  Generate  a Segment  From  Another  Segment  - The  fol- 
lowing JCL  and  input  control  cards  would  be  used  to 
generate  a segment.  (The  first  segment  was  created 
using  the  JCL  and  control  cards  in  sample  -j  above.) 
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I 

! 

I' 

II 

i 

//  '■>;HC  XFK,  SA.'<  = 'IEST36C,  SA«0L'T=  , 

//  LAEj  = EL 

//FF.PYSrN  DD  * 

$FM5/GFN,TES'I  36  0,F.  FT,, TAPI,  CARD 
iSKO  M000C1  N0C9FS 


CARP  TPANSACTICAS  FCR  REPCR?  FFT 


/* 

1 . Gqnecdte  a New  Segment  From  a Segment  anc  Add  a New 
S € 35  en;|:_Re  ccrd  - Th*^*  fcllosing  JCL  anc  input 

control  cards  hould  be  used  to  (jenerate  a new 
sequent  frci  ac  existirq  segment  and  add  new 
segment  control  records. 

//  EXZC  SAn  = TFST360,SA''nPT=,LAE  = SL 
//FM.FYSTN  DC  ♦ 

$ FMS/CFN  ,TFST  360,F.  FT,  ,T  API,  CARD 

iADD  JCCC01  J0C991  N36C98 

SSFC,  WOO  001  W0  09  9P 


CARD  TP  AN  FACT  TO  NO 


/* 

Note:  After  generation  cf  a segment  using  the  FFT 

and  logic  statements  from  the  previous  segment,  the 
new  segment  will  contain  the  FFT  and  logic  state- 
ments and  old  segment  ccrttol  records  from  the 
jirevious  segments.  A new  segment  control  record 
for  the  new  sograent  a rd  the  new  data  records 
generated  by  the  transactions  will  also  be  on  the 
new  segment. 
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CfJI'’  SOHPCE  STATEMENTS 


/* 

3.7.2  Interfile  Cutput  (IFO) 

Either  the  XQUI F cr  XCUIPSD  procedures  may  te  used  with 
IFO.  When  XQBIPSD  is  used,  the  primary  file  may  be  SAK  or 
ISAM  and  is  specified  by  the  SAM  or  ISAM  symbolic  parameter. 
When  XQOIP  is  used,  the  primary  file  is  the  RASP  answer  set 
and  is  specified  in  the  same  manner  as  for  a single  file 
query . 

With  either  procedure,  up  to  tire  secondary  files  may  be 
referenced.  All  secondary  files  must  be  ISAM.  The  symtclic 
parameters,  1SAH1  and  ISAM2,  are  provided  for  t«o  secondary 
f ile  s. 

If  the  input  is  a SAM  file  cn  unlabeled  magnetic  tape 
and  its  blcck  size  is  net  1,004  bytes,  its  block  size  must 
be  specified  witn  the  BSZFILE  symtolic  parameter. 

3.8  RASP  Procedure  (XEASP) 

This  procedure  may  be  used  for  either  single-file  or 
merge-file  retrievals.  If  the  retrieval  is  to  te  added  to 
the  file  library  identified  by  the  LIE  parameter, 
LIBDISP=OLC  must  be  specified  on  the  EXEC  card.  Use  care 
when  specifying  file  libraries  using  LIB,  IIEI,  1IB2 
parameters  since  the  procedure  will  suffix  the  specified 
name  with  an  'L*.  Indexed  files  will  be  suffiaed  with  an 
•X'  when  the  parameters  XINDEX,  IKCEXI,  and  INDEX2  are 
specified,  while  SAM  files  will  be  suffixed  with  an  'S*  when 
using  the  SAM,  SAMI,  and  SAM2  parameters. 

It  an  assembler  list  of  the  retrieval  is  desired,  code 
PARH=*LIST'  cn  the  EXEC  card. 

# PAPM='NOFL'  on  the  EXEC  card  causes  the  PET  and  logic 
statements  not  to  te  copied  to  the  QDF.  This  opticn  should 
be  used  only  when  the  QDF  is  input  tc  OP. 
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» Tf  the  file  being  gaeried  is  indexed,  the  File  Tndexinq 
mole  of  retrieval  will  a utcma tica 11 y b“  invoked  if  the 
retrieval  logic  allows.  The  user  may  override  the  Secondary 
Indoxiiiq  mode  of  retrieval  by  using  the  P A P ' I M FX  = NO  ' 
parametor  on  the  FXEC  card.  However,  the  preserce  of  a 
KEYW;.'PD  statement  in  the  retrieval  negates  the  PARI  override 
so  that  indexing  will  he  involved  as  long  as  it  is  feasible. 

Sample  Job  Setup 

"h'^  following  JCL  could  be  used  to  retrieve  from  TZST3bC 
usin  i the  file  library  T3=:S'’'36CL . Both  files  are  cataloged. 

//PST  EXEC  XPASP,ISAH=TSST360 , lin=TEST360 

//PASP.SYSIN  EC  * 

RETRIEVAL  DECK 


The  following  JCL  could  be  used  it  two  libraries  are 
retjuired  and  TEST360  is  on  tape  (9  track).  The  1EET360S 
data  base  and  bo^l  libraries  (TEST360L  and  TPAINEFL)  are 
cataloged.  The  retrieval  is  to  be  added  to  the  TESTSFL 
libr  ary . 


//PET  EXEC 

// 

//PASr,5YSIN  DC 


XRASP,SAM=TEST36n ,LIB=TESI36C, 
LIB1=TR AIN  ER, LIED  ISP=OLD 


fetpieval  deck 


/ * 


’’he  XRASP  procedure  can  be  used  to  query  a segmented 
data  file.  If  only  one  segment  is  to  be  queried,  the  deck 
setup  is  the  same  as  for  a SAM  f^LE  execution.  If  acre  than 
one  l'■en^■  is  to  he  gueriid,  addjtirnal  JJ  racus  must  be 
provj.de  i to  define  the  additioral  segments.  The  first 
segm*-‘nt  may  be  defined  through  the  symbolic  parameters,  but 
the  additional  DD  statements  must  completely  define  the  data 
se* , 
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be  performed  kith  library  TEST360L.  TRAINERS  is  an  indexed 
f ile . 

//RE^'I  EXEC  XRASP,ISAf1  = 'rEST360,SAB=TRAINER,LIB=TEST360,  X 
//  I IE 1=T RAINER, LI E C IS P=OL E, X IN DEX=TR A INER 

//RASP.SXSIN  DD  * 

(RASP  CCNTFCL  AbE  SCOFCE  LANGUAGE  STATEMENTS) 

/* 

J.9  SAM  10  ISAM  Procedure  (XSICIS) 

This  procedure  is  used  to  load  a tape  data  file  (GAM)  to 
disk  (ISAM).  Gpace  is  allocated  separately  for  INDEX, 
PRIME,  and  OVFLOH  areas.  The  procedure  defaults  these  areas 
to  1,  40,  and  5 cylinders,  respectively.  The  dispcsiticr  cf 
the  new  disk  file  defaults  to  KEEP. 

If  the  input  is  SAM  file  on  unlabeled  magnetic  tape  and 
Its  block  size  is  not  1,004  bytes,  its  block  size  lust  be 
specified  with  the  BSZEILE  symbolic  parameter. 

The  BSZNEWE  symbolic  parameter  is  used  to  specify  a new 
block  size  for  the  ISAM  file.  If  it  is  not  used,  the  ISAM 
block  size  will  be  the  same  as  the  input  SAM  block  size. 

# The  procedure  also  can  be  used  to  create  an  ISAM  file  in 
the  compre ssicn/compaction  form  or  to  re-create  a standard 
form  ISAM  file.  The  FARM  parameter  can  be  used  for 
specifying  the  option.  The  default  value  is  the  form  cf  the 
input  file.  The  options  are: 

PARM=COHPRESS  for  compression  only 

PARM=CO(!FACT  fcr  compaction  cnly 

P AR n=* COPFPESS , COMPACT'  fcr  bcth  corapressiot  and 

compaction 

PAPM=EXPAbC  for  reversing  the  compression/ 

ccmpaction  process  tc  produce 
standard  form  data  records 


43 


CH-3 


JCQ  ' FPPAO ATICN 


All  unused  PFIPF  space  will  be  filled  with  system 
generated  PAD  recorcs.  The  FARM  cpticn  NCFAD  may  be  used  if 
this  feature  is  not  desired,  e.q.: 

PAP('=  hCPAD 

1.P.1  SaiTfle  Jot  Setup 

"he  tollcwinq  JCL  could  be  used  to  load  the  TEST360S 
ril“-  from  tape-to-d  isk . It  is  desired  to  increase  the  PRIME 
ar^a  to  5C  cylinders  and  catalog  the  new  data  set.  The  SAM 
file  is  not  cataloged. 

//s:  MS  B.XEC  XSTCIS,.S  AM=TEST360,PRIf1E  = 50,  X 

//  VSAM=’SSR=MT’tAPE' ,:SAn  = TEST360  , X 

//  VIS  Ah^  »SER=MYPACK  NniSP=CATLG 

/t 

3.10  Subroutine  Loader  Proce’dure  (XSUBLDF) 

This  procedure  is  used  to  place  user  subroutires  cn  the 
file  library.  The  two  inputs  are  the  user  subroutine  in 
lead  iTOd  ule  form  oi;  a temporary  or  permanent  data  set  and  a 
control  card.  The  HODLIB  parameter  is  used  to  specify  the 
name  ct  the  data  set  containing  the  input  subroutine.  It 
defaults  tc  &IEMP  which  is  th>  name  ot  the  data  set 
cctLtaining  the  subroutine  if  the  iSKFCL  procedure  has  been 
used  in  a prior  step  of  the  jot  tc  assemble  and  link  edit 
the  subroutine. 

3.10.1  Sample  Job  Setup 

"■he  tollcwing  JCL  cculd  be  used  tc  assemble,  link-edit, 
and  add  a subroutine  to  the  TFST760L  library  which  is 
Cj*-a1oged.  The  subroutine  is  named  DTGIS. 

Not-?;  The  MOCLID  DSNAME  is  not  sp-^cified  cn  tho  EXiC  card 
sinco  it  defaults  to  the  DSNAMI  of  the  assembler  jet  step 
output  (DTEMP). 

//ASri  EXEC  ASMFCL 
//A5''.SYSIN  CD  ♦ 
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3.1^  Index  Spec! ticat ion  Utility  (XSP) 

This  procedure  is  used  to  specify  Keyword  Indexin.) 
information  for  a data  file  withcut  running  a File  Structure 
or  Pile  Maintenance  job.  The  disk-resident  Index  Pata  Set 
may  he  either  generated  or  updated  frcm  either  an  ISAM  or 
SAM  data  file. 

Both  SOE/TAB  and  INDEX  stateients  are  accepted  and  must 
be  specified  through  the  SYSIN  device.  Beth  additions  and 
deletions  of  indexed  fields  may  be  mdd<-  in  the  sane  run. 

If,  for  any  reason,  the  Index  Data  Set  is  destroyed  but 
the  tile  remains  operational,  the  user  has  the  option  to 
recreate  the  Index  Data  Set  to  have  it  correspond  with  the 
existing  file  by  specifying  PARH='GEN'  and  XDI3I  = NEii.  It 
the  input  is  a SAB  file  on  unlabeled  magnetic  tape  and  its 
block  size  is  not  1,C0h  bytes,  its  block  size  must  be 
specified  with  the  ESZFILE  symbolic  parameter. 

3.19.1  Sample. Job  Setup 

The  first  example  is  used  to  generate  a new  Index  Data 
Set  from  an  existing  ISAM  data  file. 

//GENXSP  EXEC  XSP,X 1 PCEX=TEST360, XEISP=NEW, 

//  XVOL= • SER=MYPACK' , LIB=TEST360, 

//  VII B=  •SEP=HYPACK' , IS AM^TEST 3 60, 

//  VI3AM  = > SEP  = nYPACK*  , 

//XSP.SXSIN  DC 

INDEX  STATEMENTS 


The  second  example  is  used  to  update  an  existing  Index 
Data  Set  from  an  existing  SAW  data  file. 

//UPCXSP  EXEC  XSP,XINDEX=TEST360,XVOL='SER=HYPACK', 

//  LIB  = TEST360,VLIB=' SEH  = «YPACK  • , 

//  S AH=TEST360,VS  AM='  SER=MYTAPE'  , 

//  LAB=SL,DSN=2, 

//  SAMOUT=,VSMCnT='SER=NIWTAP' , 

//XSP.SYSIN  DD 

INDEX  STATEMENTS 

/♦ 
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:h“  ♦bird  example  is  usf>d  to  recreate  an  Index  Data  Set 
from  an  existing  SAM  file  ccrtaining  Index  Descriptor 
if^cords.  In  this  example  no  changes  are  desired  tc  the 
ind«^x<’d  fields.  Hcwever,  the  Index  Descriptor  records  may 
be  updated  by  including  the  proper  Index  Statements. 

//RELKSP  EXEC  XSP,  PAP[<=  • GEN*  , XINC£X  = TBST360, 

//  XVOL  = ' SER=MYPACK' , II D= IE ST360  , 

//  VLIB= 'SEF^MY  PACK* , SAM^TEST  360, 

//  VSAM='SER=MYTAPE‘ ,LAB=SL, 

//  EEN=  2 ,SA('CU'!'  = , VSMOUNT=*  S ER  = NEWTAP'  , 

//  XDISP=NEw 

//XSP.SYSIN  DC 
/* 

3.20  Onload  Index  Data  Set  Procedure  (XTRDISK) 

This  procedure  is  used  to  copy  a disk-resident,  direct- 
access  organization.  Index  Data  Set  to  a tape-resident, 
sequf' ntial -access  organization  data  set.  The  XFNAME  and 
XFVOl.  symbolic  parameters  must  be  supplied  for  the  Input 
Index  Data  Set.  The  XTNAME  and  X'^VOL  symbolic  parameters 
must  be  supplied  for  the  unleaded  data  set  residing  cn  tape. 
No  control  sta+ements  are  required. 

# i statistics  on  the  content  of  the  index  data  set  are 
desired,  STA'I=Y£S  should  be  designated.  When  this  option  is 
chos<  n the  corresponding  data  file  name  and  volume  must  also 
he  specified.  The  parameters  are  ISAM  and  VISAK  for  an  ISAM 
data  base  and  SAM  and  VS  AM  for  a SAM  data  base. 

3.20.''  Sample  Job  Setup 

» ""he  following  JCL  would  unload  the  T'^ST360X  Index  Data 
Set  r row  a 2314  disk  pack  to  a nine-track  labeled  tape. 

//ST  ■■  TNAME  EXFC  XTREISK, 

//  yiNAME^INnEXSAM, XlVCI=*SEP=MYTAeE*  , 

//  XFNAME  = TEST360X,XFVOL='SEP.=MyPACK 

/♦ 


“he  following  JCL  wculd  unload  and  print  the  contents  of 
tne  TEST360X  index  data  set. 
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//STEPNAKE  EXEC  XTPDI EK , STAT= YES  | 

#//  XTFKAHE=INr'’XS*n,XTVOL  = 'SER  = nY1APE',  i 

//  XENAME=TEST36(X,XPVOL=*SER=f1YEACK', 

/♦ 


3.21  Load  Index  Data  Set  Procedure  (XTRTAPE) 

This  procedure  is  used  to  reccrstruct  a di sk -resident 
direct  access  organization  Index  Data  Set  from  a previously 
unloaded  sequential  access  organization  data  set.  The 
XFNAME  and  XFVOL  symtolic  parameters  must  te  supplied  for 
the  input  tape.  The  XTNAHE  and  XIVCL  symbolic  parameters 
must  be  supplied  for  the  Output  Index  Data  Set  on  disk. 

3.21.1  Sample  Job  Setup 

f The  follcuing  JCL  would  load  the  TEST360X  Index  Data  Set 
to  a 2314  disk  pack  from  a nine-track  labeled  tapg, 

//STEPNAME  EXEC  XTRTAEE, 

//  XTNAEE  = TEST360X,XTVOL=*SER=I1YPACK  • , 

#//  XFNABE  = INDEXSAM, XF VO  1= • SER  = H YT APE • 

/♦ 

3.22  Keyword  Analysis  (XKA) 

This  procedure  is  used  to  obtain  printed  listing  of 
text,  non-keywords,  and  keywords  that  occur  in  a data  base 
without  updating  the  index  data  set.  No  DD  card  overrides 
are  necessary,  but  a ED  statement  named  SYSIN  must  always  be 
included  tc  identify  the  user's  input.  A file  name  must  be 
specified  using  either  the  ISAM  or  SAM  symbolic  parameter. 
If  a user  scan  subroutine,  stop  word  table,  or  dictionary  is 
required,  the  library  name  must  be  specified  with  the  LID 
symbolic  parameter. 

3.22.1  Sample  Job  Setup 

The  following  JCL  world  be  used  tc  analyze  keyword 
fields  in  the  TEST360  ISAM  data  base: 
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//STEPNAME  EXEC  XK  A ,I  S A n = TE  £ T 36C  , LI  B=TE  36  C , 

//  VI£Af1^'SEP  = «YPACK'  ,VIIB='.SEF=f'YFACK' 

//XKA.SYSIE  DD  * 

(user  supplied  ccntrcl  statements) 


/♦ 


J,23  ricticnary  Maintenance  Utility  (XKM) 

■^his  prccedure  is  used  to  generate  cr  update  keywords, 
stop  word  tatles  and  dictionaries.  Mote  than  one  stop  word 
tabl • or  dictionary  may  te  created  cr  updated  in  cne  run 
provided  that  all  are  members  ir  cne  library  (specified  by 
the  LIB  parameter) , stop  word  table  and  dicticnaty  rame 
specifications,  maintenance  commands,  and  data  ate  accepted 
through  the  SYSIN  device. 

3.23.1  Sample  Job  Setup 

: he  tollcwing  JCL  wculd  be  used  tc  maintain  any  or  all 
stop  word  tatles  and  dictionaries  in  the  TEST360  library. 

//  EXEC  XKM,LI B=I£ST360 
//S KM.  SYSIN  DD  * 

Table  cr  Dicticnary  Names 
Maintenance  Commands 
Data  (keyword  specs) 

/♦ 

3.24  Format  Definiticr.  Translator  Procedure  (yUTGCE) 

'"his  procedure  is  used  tc  place  format  definitions  on 
the  user  library.  The  input  definition  statements  may  te  in 
punched  cards  cr  in  card  image  records  stored  in  a library. 
Mote  ♦'han  one  format  definition  may  be  added  tc  the  library 
at  a t i m “ . 

3.24.1  Sample  Job  Setup 

'he  follcwinq  JCL  would  be  used  to  add  a fcrmat 
definition  in  punched  cards  tc  the  user  library,  IESI360. 


\ 
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5.4  PASP  Production  Proc«^dure  (XRASPEX) 

The  procedure  XFASEEX  is  used  to  execute  previously 
cojnpiled  single-file  or  merge-file  retrievals.  It  may  not 
be  used  to  compile  a retrieval  or  to  add  a retrieval  tc  a 
library.  The  intended  use  of  procedure  XFASFEX  is  for 
production  retrievals  only. 

Specifications  for  symbolic  parameters  and  override  DO 
statements  fcr  the  production  procedure  XPASEEX  are  the 
same . 
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s/370  VSAM  CONS ICE5ATIONS 


This  section  addresses  the  procedures  and  considerations 
under  which  the  S/37C  user  of  NIPS  FFS  may  create  and 
proct-ss  a NIPS  file  using  the  Virtual  Storage  Access  Method 
(VSAM).  Each  NIPS  procedure  which  might  be  used  to  process 
a VSAfl  file  is  examined  and  the  VSAM  service  routine  IDCAMS 
is  examined  fcr  use  with  NIPS  VSAM  files. 

The  sample  jobs  will  omit  the  jcb  card  which  is  always 
required  and  standard  for  each  installation. 

NOTE:  NIPS  FFS  will  not  currently  process  a VSAM  NIPS  file 

in  the  terminal  en v ironnect . Alsc  NIPS  FFS  will  rot  process 
VSAM  files  which  are  not  NIPS  files. 

6.1  VSAM  Service  Hcutine  IDCAMS 

VSAM  processing  requites  that  VSAM  files  be  defined  before 
they  can  be  accessed  by  any  prograa  or  system,  including 
NIPS.  The  VSAM  service  routine  lECAHS  is  used  fcr  this 
purpose.  By  making  use  of  the  various  options  available, 
the  user  can  create  user  catalogs,  define  clusters  (allocate 
and  catalog  data  sets),  copy  data  sets,  mevo  data  sets  from 
cne  operating  system  to  another,  and  recover  from  certain 
types  of  data  damage. 

Four  of  the  ICCAMS  options  are  of  interest  to  the  NIES  user. 

o Creating  a NIES  user  catalog 

o Defining  a cluster  for  a VSAM  file 
o Converting  an  ISAM  FILE  to  VSAM 
o Deleting  an  unneeded  cluster 

6 . 1 . t Creating  a NIPS  User  Catalog 

All  VSAM  data  sets  must  be  cataloged  on  a user  or  a 
master  catalog.  In  normal  applications,  the  user's  VSAM 
file  will  be  cataloged  on  the  NIPS  user  catalog.  This 
provides  for  user  control  of  his  data  sets.  The  fcllcwing 
JCL  could  be  used  tc  create  a NIPS  user  catalog: 
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national  military  COM4ANC  SYSTEM  SUPPORT  CENTER  WASH-«PTC  r/«  aya 
^S^  INFORMAT  ION  PROCESSING  SYSTEM  360  FORMATTED  FILE  SYSTEM^(n-?eTC  (U) 

jNCLASSIFIEO  NNCSSC-CSN-i5-7A-V«-l/2/3  ^ 


jCH  rr•^PApATIc^ 


//DCA”’ 

FXEC 

FGP=IECAMS 

//DDKA  ST 

DD 

DSN=AnASTCAT,DIFS=SHP 

//DDNIP 

DD 

U MT=  3 3 10,  V0L=S  EP=ixxxxx,  D ISP 

//SYSPP  INT 

DD 

SYSOl)T  = A 

//S YST  N 

DC 

* 

DEFINE  USEPCATALOr,  - 

(FAt^F  (NIFSM)  VOLUKE  (XXKXXX)  - 

FILE  (DDNIP)  'TRACKS  (131,3))  - 

LA7A  (PECOEDS  (23,3)) 

/• 

In  ti.c  preceding  exainflF  he  DDIASI  statement  points  to  th<^ 
master  catalog,  needed  to  receive  a catalog  entry  fcr  the 
SIPS  user  catalog:  and  the  DDNIP  statement  points  to  the 
disk  pack  which  wall  contain  the  NIPS  user  catalcc.  The 
NIPS  user  catalog  was  named  NTPSM.  A ccmplete  discussion 
cone-' rn  ing  the  creation  of  user  catalogs  is  contained  in  the 
OS/V''  Access  Methods  Services  manual  (GC26-3336). 

t.l..  Defining  a Cluster  for  a VSAP  File 

trior  ♦•c  running  a NIPS  jot  which  creates  a new  VSAF 
file,  the  user  must  first  define  the  cluster  that  represents 
tha*-  VSA!*  file  via  1DCAJ1S.  In  defining  the  clister,  the 
us“r  specifies  ’■he  name  of  the  file,  the  volume  that 
contains  the  file,  the  key  size  a rd  location,  etc.  The 
tell'. wing  OCl  could  te  vised  to  define  a cluster  fcr  the  VSA1 
filo  VSA.d.  SECCND: 


//D^'LL'S  EXEC  Pr,.>1  = IDCANS 

//ST"PCAT  CC  CS  h=  MFS«,  CISP  = 3HP 

//DPNIP  DP-  LNIT  = 313C,  VOL  = ESP=xxxxxx,DISr=CLE 

//SYSPFINT  DD  SYSCIJT  = A 

//SYSIN  DD  ♦ 

DE‘IhF  CLUSTEF  • 


( NAnE  (VEAM.SSCCND)  VCL(XXXXXX)  - 
KEYS  (21,1)  BIJEEEPFPACE  (1311  2)  - 
FPEPSPACE  (20  20)  CYLINDERS  (2))  - 

DATA  (PECnpDSIZE  (1  00,  1000)  - 

CCNTFOLINTERVALSIZS  (UOSh))  - 
INDEX  ( CONTPCLINTSRVALSIZE  (1C2U)  - 
FFILICAT?  IKEt)  - 
CAT  (NTPSn) 
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In  the  preceding  exaifle  the  SI5PCAT  statenpat  points  to 
the  NIPS  user  catalog  which  will  contain  the  cataloc  entry 
for  the  ySAJl  file.  The  DDNIP  stateoient  points  to  the  disk 
pack  which  will  contain  the  VSAM  file. 

”Or  NIPS  VSAM  files  the  K^YS  paraneter  is  specified  as 
follows: 

KEYS  (KS,  1) 

where  KS  is  the  keysize.  The  key  is  a Binirauro  cf  15  bytes 
and  consists  cf  the  fcllcwing: 

a.  Twc  bytes  fcr  systea  ccntrcl 

b.  The  user  defined  major  control  group 

c.  The  largest  user  or  system  defined  set  control 
group,  a minituB  of  four  bytes. 

A complete  discussion  concerning  the  definition  of  a 
cluster  is  contained  in  the  OS/VS  Access  Hethoc  Services 
Manu  al. 

6.1.3  Converting  an  ISAH  File  to  VSAH 

The  user  can  use  the  lECAHS  service  routine  to  ccnvert 
an  existing  ISAK.  file  tc  a new  VSAM  file.  The  following  JCL 
could  be  used  tc  convert  the  ISAH  file,  ISAH.SBCOKD,  to  the 
VSAK  file,  VSIH.SECCNE: 

//REP  EXEC  EGP=IDCAHS 

//STEPCAT  CD  DSN=NIPSM,DISP=SHR 

//DDVSAR  EC  CSN=VSIH,SECONC, EISP=OLC 

//DDISAH  DD  D£N=I£AH. SECOND, UNIT=3330, 

//  VCL=S EB=XXXXXX, DISP=SKP, 

//  CCB=D£ORG=IS 

//SYSPBINT  CD  SYSOUT=A 
//STSIN  DD  ♦ 

PEPBC  INFILE  (DEISAH)  - 
OUTFILE  (DDVSAH) 

/* 

In  the  preceding  example  the  STIPCAT  statement  specifies 
the  NIPS  user  catalog  containing  the  catalog  entry  for  the 
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VSAM  tile.  The  DDVSAS  statpnent  specifies  the  VSAh  file  and 
the  cniSAM  sta’-enent  specifies  the  input  ISAr 

6.1.4  tele’-in'j  a Cluster 

'f  it  beccnses  necessary  to  delete  a VSA.h  file,  the  user 
must  use  IDCAhS  to  delete  the  file.  IFCA.1S  kill  scratch  the 
file  from  the  user's  disk  pack  and  will  delete  the  file 
catalog  entry  in  the  M FS  user  catalog.  The  fcllcwir.g  JCL 
could  he  used  to  del<=te  the  VSAB  file,  VS  AP.  SSCCND: 

//nCAT  PCP  = IDCA«S 

//STFPCAT  rC  [SN=  MFS  n,  DTSP  = SHP 

//DDNIP  DD  tJNIT  = d 330,  VOL  = SEP=xxxx  jx,DISF=CLD 

//s Y<^ppiNT  SYSCUT=A 

//3YSIN  DD  * 

TIELHIH  VSAP.SECCNE  CATALOG  (NIPSH)  - 
FILE  (DDNIP)  PtJPGS 

/• 

In  the  preceding  example  the  STPCAT  statement  specifies 
tnr-  user  NIPS  catalog  containing  the  catalog  entry  for  the 
VSA.r  fil^'  to  he  deleted  and  the  EENIP  statement  points  to 
the  disk  pack  centaininq  the  VSAP  file.  A complete 
discussion  cf  the  delete  procedure  witnin  IDCAnS  is 
contained  in  the  OS/VS  Access  Service  Methods  Manual. 
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h.2  File  Maintenance  (?M) 


File  Maintenance  (EM)  is  used  to  process  a VSAM 
fil^',  as  either  a data  haso,  transaction  source  or  AFP  file, 
the  user  must  specify  the  NIPS  user  catalog  that  contains 
th"^  catalog  entry  for  the  VSAM  file.  This  is  dene  by 
inclidinij  the  VSCAT  paraieter  on  the  EXEC  sta'-ement.  The 
foil  )wir.q  is  an  f'xample  of  a conple*-ed  VSCAT  parameter: 

//'ME  EXEC  X ?M  ,VSCA'"  = N IFSM 
6. 2 - VSAM  Generate 

>ih‘=’r.  turr.inq  a VSA”  generate  operation,  the  user  must 
specify  '•he  name  of  the  VSAM  file  containing  the  FFI  via  the 
VSDSN  parameter,  and  the  r.a  mo  cf  the  newly  generated  VSAM 
file  via  the  NEWVSr  parameter.  These  two  file  names 
(DSNAMFs)  cannot  he  the  same,  as  they  refer  to  twe  different 
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VSAM  files.  The  file  specified  by  the  NEHVSH  parameter  will 
be  t re  newly  generated  file  and  must  have  been  previously 
defined  via  the  VSAf  service  routine  IDCAHS  (Section  6.1.2). 
The  user  !iu£+  not  include  any  of  the  parameters  associated 
with  an  ISAf  generate.  The  following  job  could  be  used  to 
generate  a VSAr  file: 

//SBN  EXEC  XFH,  VSCAT=!rrP£P,lI  B=PRinE, 

//  VSDSN= ' VS  AH. PFT. PRIME', 

//  NEwVSH^' VSAM. PRIME* 

//FM.SYSIh  HD  ♦ 

SFM S/GEN, PR  IM E , X XX  , ,DIS K ,CA PO 

. GEMEPATE  TRANSACTIONS 


/* 

In  the  above  example,  the  term  DISK  on  the  $FMS  ccnttcl  card 
denotes  that  the  data  base  will  be  either  ISAM  or  VSAM. 

6.2.2  VSAM  Update 

When  running  a VSAM  update,  the  user  specifies  the  name 
of  the  VSAM  file  with  the  VSDSN  parameter.  The  user  must 
not  include  any  of  the  symbolic  parameters  associated  with 
an  ISAM  update.  The  following  jot  could  be  used  tc  update 
a VSAM  PILE; 

//UPD  EXEC  XFM, VSCAT=NIPSM, 

//  VSDSN='VSAM. PRIME', 

//  LIB=PPIME 

//PM.SYSIK  DD  ♦ 

JFHS/UPE,  PRIME,  XXX,  ,DISK,CARD 

. UPDATE  TRANSACTIONS 

/* 


In  the  above  example,  the  term  DISK  on  the  SFHS  ccntrcl  card 
deno’-es  that  the  data  base  is  either  ISAM  or  VSAM. 

6.2.3  VSAM  Transactions 

when  an  EM  generate  or  update  is  to  te  perfcried  using 
a VSAM  file  as  the  transaction  source,  the  user  must  code 
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the  PI. "SANS  ED  cverii<?  s*-a»;  which  specifies  the 

D3NA''E,  DISP  ari  AMP  paca*e*ers.  Tho  APP  pataaetet  aust  he 
cciefi  as  fellows: 

A PF= • A PCPG  ' 

Aidi-ional  s u h par  a le t e r s may  be  specified  as  set  forth  in 
thf'  GS/VS  VSAP  Frog  taoBer 's  Guide  (GC26-1  838). 

Ff  acre  than  ore  VS  At  file  is  to  be  used  as  the 
transaction  source,  each  file  icEt  he  identified  by  a 
separate  ac  statement.  The  CD  statements  must  be  named 
IST^ANxx,  where  xx  is  a unigee  identifier  for  each  DD 
sti t-men t.  The  same  parameters  specified  for  a single  ySAP 
tile  on  the  FM.T3ANS  ED  statement  must  be  specified  for  each 
VSAM  file  on  the  corresponding  TSTPANxx  DD  statement.  The 
JFtS/xxx  control  card  would  specify  the  transaction  source 
as  IPAP.  The  follcwirg  job  could  be  used  to  update  a VSAP 
file  using  a VSAP  file  as  input  transactions. 

//l!?D  EXFC  XT  f,  VSCAT=NIP3P, 

//  VSDSN  = ' VSAP  .PPI PE ' , 

//  LIB^PFIPF 

//->'. T^ANS  DD  DEN=VEAP.  SECOND  ,DISP=SHP  , 

//  A"E='  ArCFiG* 

//?'•. SYSIN  DD  * 
l'='r.S/tJPD,FFIP:.  ,2ZZ,  ,DTSK,  ISAP 

/• 

0.2.  ■>  Processing  3AK  ”iles  with  a VSAP  FFT/t.S 

” * is  possible  tor  *he  user  to  elect  to  peifctir  a SAP 
tile  generate  using  ‘he  FFT  and  lojic  stateaents  troi  a VSAP 
tile.  This  car.  te  accomplished  by  specifying  the  VSCAT, 
VS'.'SN,  and  SArcUT  parameters  along  with  the  oth^r  paiaieters 
neederi  *c  petferm  a SAP  run.  The  tcllcwing  job  cculd  be 
used  ‘o  g“neta*-e  a SAP.  file  using  a VSAP  fET: 

//SG^N  EXEC  XEh,  VSCAT=NIP.GP, 

//  VSDSN =• VSAP  .PPrPE*  , 

//  S APOUT  = , VSPC'IT='  SEP=XXTXXX* 

//FP.SYSIN  DD  * 
f FPS/GFN, {PIPE, YYY,, TAPE, CASE 

GE.NEEArE  TFANSACTIONS 
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The  us“r  can  also  perfora  a SAH  update  whil=  ufir.g  the 
F?r  and  logic  stateients  frca  an  existing  VSAH  file.  This 
is  accomplished  by  preparing  the  EXPC  statement  £cr  a normal 
SAM  update  while  including  the  VSCAT  parameter  and 
overriding  the  F.M.  IS  APMCPK  CD  statement  to  point  to  the  VSAM 
file.  The  user  must  provide  the  DSHAME,  DISF,  and  AMP 
parameters  on  the  ISAMHCFK  DD  statement.  The  fcllowinc  job 
could  be  used  tc  update  a SAM  file  using  the  and  logic 

statements  frcm  a VSAP  file: 

//SUPD  EXEC  XF  F,  VSCAT=NIPSI1, 

//  £AM=PPinE,LIB=PRinE, 

//  VSAH=  •SEB=XXXXXX • , 

//  VS!10UT  = ' £ER=xxxxxx  • , 

//  SAMOUT= 

//FH . ISAHWORK  CD  DSN  = VSA K . F R I EE , DI S P=SHP  , 

//  AEP='AEOPG' 

//PM.SYSIN  DD  * 

$FM S/y PC , PRIME, XYZ, ,T APE, CAFE 

• 

UPDATE  TFANSACTICNS 


/* 

6.2.5  Other  EH  VSAM  Cons ideratic rs 

If  the  user  employs  the  AFP  operator  in  FOCI  to  address 
a VSAM  file,  the  DD  statement  for  the  referenced  VSAH  file 
must  specify  the  DSNAHE,  DISP  and  AHF  parameters.  Also  the 
user  must  include  the  VSCAT  parameter  on  the  EXEC  statement. 
The  following  DD  statexent  cocld  be  osed  for  an  AF? 
referenced  VSAM  file: 

//AFRVSM  DC  C3N=VSIH. PRIME, niSP=SHF, 

//  AME='AMOFG' 

The  BSZNEBF  parameter  used  tc  specify  output  block  size 
does  not  apply  when  generating  a VSAH  file,  as  its  block 
size  was  estatlished  when  the  file  cluster  was  defined  via 
IDCAMS. 
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w h'^n  the  user  is  perferming  a SA*<  gonecato  t<ith  a VSA'i 
??T,  ugzNEWF  Bust  be  u.sei  to  jpecify  the  block  size  cf  the 
new  SAf*  fils  if  a block  size  other  than  1004  is  desicei. 

6.3  File  Pevisior.  <FR) 

"lie  Pevisicn  (?P)  will  revise  the  foraat  of  a NIIS  VSAfi 
tile  as  well  as  a S Af!  or  ISAM  file.  The  new  FFT  can  be 
ci’’ ht-r  an  ISAM  FFT  cr  a VSAM  FFT.  When  running  FR  against 
a VSAM  file  or  usinc  a new  VSAM  FFT,  the  user  must  include 
the  VSCAT  s>ratolic  paraaeter  cn  the  EXEC  statement  to 
specify  the  NIPS  user  catalog. 

when  the  user  is  revising  an  old  VSAM  file,  the  EXEC 
stat*nierit  must  include  ’•he  VSOLLF  parameter  (specifying  the 
old  file  name)  and  the  TPAN'’'YP  parameter  (equal  ♦•o  VSAM)  . 
Additionally,  the  following  JCL  override  CD  s’-atement  must 
he  included: 

//F^.VSAM  DD  AMP='AMnpg' 

TPAtJTXP  parame’-er  (equal  to  VSAM). 

When  the  new  FFT  is  a VSAM  file,  the  user  must  include 
the  VSpGN  parameter  (specifying  the  FFT  name)  cn  the  EXEC 
at  at  eraen’- . 

The  following  JCL  could  be  used  to  revise  an  old  VSAM 
file  using  a new  VSAM  F f’' ; 

//PEV  EXEC  XFF, VSCAT=NIPSM, 

//  VSDSN=*NEW.F’’IME', 

//  VSOLDF=  'VSAr.  FPTME' , 

//  TPAMTYP^VSAM, 

//  VSMCgT= •SEF=xxxxxx ' 

//'=■?.  VSAM  DC  AMP='AMORr:* 

//FP.SYSIN  DO  * 

FR  control  CARDS 

/* 

The  blcck  si'ze  cf  the  new  SAM  file  will  be  10C4  when  the 
file-  being  revised  is  a VSAM  file,  unless  a different  block 
size  is  specified  in  the  ESZNEWF  parameter  on  the  EXEC 
jta*  ment. 
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6.4  File  Strccture  (FS) 

■^ile  Structure  (FS)  is  used  tc  structure  the  FFT  £cr  a 
fiGw  file.  This  new  file  can  be  e.ther  an  ISAI  file  or  i 
VSAM  file.  fcrhen  the  new  file  is  VSA1,  the  user  irust  have 
previously  defined  the  file  using  the  VSAH  service  routine 
IDCAnS  (Section  6.1.2).  To  structure  a VSArt  file  FFT,  th*? 
user  Bust  include  ♦•he  VSCA""  paraneter  (specifying  the  name 
of  the  NIPS  user  catalog),  the  VSLSN  parameter  (specifying 
the  name  of  the  VSAF  file),  and  the  NONVSM  parameter  must 
equal  ‘DUNNY,*).  The  follcwing  JCL  could  be  used  to 
structure  a VSAK  FFT: 

//FSSTP  FXFC  XFS,  VSCAT=NIP.SM, 

//  VSDSN  = • VSAN .FFT.PPI FE  • , 

//  NCNVSn^ ‘CUNrY,  • , 

//  LIB=PRI»1E 

//FS.SYSIF  DD  ♦ 

SOOPCE  FFT  DECK 

/* 

The  BSZNEHF  parameter,  which  is  normally  used  to  specify 
a block  size  other  than  1004,  has  no  application  when 
structuring  a VSAM  FFT.  block  size  is  specified  when  the 
VSAM  file  was  defined  with  the  TDCAHS  utility. 

If  the  structure  cf  a VSAM  FFT  fails,  the  file  will  no*- 
be  automatically  deleted.  The  user  must  delete  the  VSAM 
tile  using  IDCAMS  (Section  6.1.4)  and  then  redefine  the  file 
with  IDCAMS  pticr  tc  rerunning  the  FS  job. 

6.5  VSAM  tc  SAM  Prccedure  (XISTCS) 

The  prccedure  which  is  used  tc  unload  an  ISAM  file  to 
SAM  (XISTOS)  can  also  be  used  tc  unload  a VSAM  file.  To 
unload  a VSAM  file,  the  user  Bust  include  the  VSCAT 
parameter  (specifying  the  NIPS  catalog)  and  the  VSDSN 
parameter  (specifying  the  VSAM  file  name)  on  the  EXEC 
statement.  ISAM  parameters  are  not  permitted.  The 

blocksize  of  the  output  SAM  file  will  be  1C04  unless 
overriden  ty  use  of  the  BSZNEHF  parameter  on  the  FXEC 
statement.  The  following  JCL  could  be  used  to  unload  a VSAM 
file: 
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FXSC  XISTC?  ,VECA'r  = >51FS*l, 

//  V2DSH  = ' VSA*1.PPI»1E'  , 

//  EA«=FFI»F,VSAn='SER=xxxxxx' 

/* 

b.  6 OP 

Th“  us«;r  of  d VSAF  file*  can  use  ’■he  OP  cosponent  ct  PIPS 
’ o pLoduce  cepcrts  as  if  the  file  nas  an  ISA.“  file.  To 
proc!Ss  a VSAH  file,  the  use r specifies  the  naae  of  the  VSAK 
tile  usi  n j ‘•he  ISAM  pata!iie*er  and  ‘•he  NIPS  user  catalcc  with 
the  VSCAT  paraaetet.  The  user  aust  also  include  the 
followin:}  JCl  override  statonent: 

//OF.  L AT  AF  ILH  OF  AMP='AdO?G’ 

The  tollowing  JCL  cculd  be  used  ♦:  c run  a source  direct  OP 
-ijair-.s*-.  the  VSAM.PrlMF  file: 

//SO  EXEC  XCESC, VSCA-^NIESM, 

//  ISA '«=  • VSAM.  PPIMS  ’ , LIB=PFI  HE 

//OP.DAI AFIir  LI  AMF^'AIOFG* 

//O^.SISTN  DD  • 

CF  CChTFCL  CAopO 

/* 


.r  perform  merqed  file  processing  against  VSAM  files, 
‘■he  user  must  specify  the  name  cf  the  NIPS  user  catalog  with 
the  'VSCAT  parameter  and  the  names  of  the  VSAM  files  using 
’he  isA'',  ISAMI,  and  ISAM;2  parate’ers.  For  each  VSAC  file 
used,  ’he  user  must  include  a JCL  override  CC  statexert  to 
specify  A ' A MOPG  ' . The  DD  statements  are  DATAFILE  for 
ISA*-,  ‘'A'-AFin  for  I5AM1  and  DA^AFILZ  for  ISAF12.  Additional 
secondary  files  may  be  specified  by  including  a DATAEILx  DD 
s’at  meet  tot  each  additional  file,  when  x is  a one  digit 
humn  t from  3 to  9.  Each  DD  statement  must  contain  the  file 
DSNAI'E,  DISP=SHP  and  A dP= 'A  «10RG  ' . The  following  JCl  could 
be  use!  to  tun  a merged  file  source  direct  OP  against  VSAM 
t i 1 e j : 


//SD3  EXEC  XOPSD, VSCAT=NI FSr, 

//  I S AM= • VS  AM.  FPTM' •,  IS  AM  1= • VP  AM.  SECON  D’  , 
//  ISAfl2  = ’VSAn.TKIRn' ,LIB  = PBIM? 

//OP.  OA't' AFllE  CL  Af:P='  AMOPG* 
//OP.DATAEIL1  DD  AMP  = 'A.MOPG* 
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//OP.DiiT  AFIL2  EC 
//op.DAT af:l3  DD 
//  e:sf=shf 

//nP.SYSlM  DD  * 

CE  CCFTFCl 


APP=' ANCEG* 

AHP  = ' AHOPG*  ,DSN  = VSA'5 


CARDS 


/* 


FORTE, 


The  only  operand  which  Bust  be  coded  for  the  A!f? 
paraaeter  is  "AnOPG".  Additional  operands  can  be  supplied 
and  their  descriptions  are  contained  in  the  CS/VS  VSAi 
Prog  r aa  aer  ' £ Guide  (GC26-3B3R). 

6.7  QUIP 


Inforaation  can  be  retrieved  and  output  frca  VSAB  files 
using  QUIP,  but  only  in  the  batch  acde.  To  process  a V3AB 
file  using  QCIP  the  user  must  specify  the  NIPS  user  catalog 
with  the  VSCAT  parameter  and  the  name  of  the  file  in  the 
ISAS  parameter.  The  user  must  also  override  the  CATAFILE  DD 
statement  to  specify  AHE='ABOPG'.  The  following  JCL  could 
be  used  to  run  a source  direct  QUIP  against  a VSAF  file: 

//QPVSH  EXEC  XQOIPED, VSCAT=HIFSM, 

//  ISAf1='VSAB.  EBIPE',  LIE=PPIf1F 
//QUIP. CATAFILE  DD  AnF='ABORG' 

//QUIP.SYSIN  CE  ♦ 

QOIP  SOURCE  STATEMENT 

/* 

Hhen  using  IFO,  the  first  twc  secondary  files  ar^^ 
specified  by  using  the  ISAHl  and  ISAn2  parameters  on  the 
EXEC  statement.  The  user  must  also  override  the  EATAFILl 
and  DATAFI12  CD  statements  to  include  the  Ar!P='ARCRG* 
parameter.  If  sore  than  two  secondary  files  are  required, 
each  additional  file  must  be  specified  by  including  a 
DATAFILx  DC  statement,  where  x is  a unique  one  digit  number. 
The  CD  statement  must  include  the  DSNAFE,  DISP=SHF  and 
AHP= • AMORG  • . A total  of  nine  secondary  files  may  be 
specitied.  The  following  JCL  could  be  used  to  run  a source 
direct  QUIP  with  IFC  against  VSAF.  files. 

//QPVSF  EXEC  XCOIESC,  VSCAT=NlF.Sn, 

//  ISAM= • VSAF. PRIME* ,ISAF1=' VSAF. SSCCNC* , 

//  ISAM2= 'VSAH.THIRD*  , LI  E=PP  TM  E 

//QUIP . DATA  FILE  OD  AHP=*AFCFG* 
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//QUIP. DATAFILI 

DE 

Al*P=  ’ AnOFG’ 

//Q'l  IP  . DAIAFIL2 

DD 

AKP=  • AMCPG • 

//QUIP.  DATAFI  L.1 

DE 

DSN^VS  AM  . FOETH,  DISP  = SHP  ,A«P=' AMOPG  • 

//QfJIP  . £ KS  IN  DD  • 

OUTF  SCUFCF  STATIfENTS 

/ * 

"ThP  only  op<?ranrI  which  must  be  ccdei  fcr  the  AKP 
pacametei  is  *AHOFG*.  Additional  operands  can  be  supplied 
as  le>scribed  in  the  05/75  V3AH  Progranner ' s Guide  (QC26- 
I8V))  . 

6.S  PASP 

ray  used  to  retrieve  data  froo  a VSA“  file  for- 
output  by  Cf  cr  yUI  f.  To  retrieve  data  fcoi  a VSAr.  file  the 
user  must  specify  the  NIPS  user  catalog  with  the  VSCAT 
parameter  and  the  file  name  with  the  ISAfl  parameter.  The 
user  rust  also  override  the  DATAFILE  DD  statement  to  include 
Anp=  ' Af.OPG  •. 

when  doing  a »ecged  file  retrieval  against  VSAt!  files, 
the  user  must  specify  the  names  cf  the  additional  files  via 
the  ISAri  and  I5Ar2  parameters  and  must  provide  overrides 
tor  * he  DATAFIL1  and  DATAFIL2  DD  statements  to  include 
A ' ADOPG  * . Wheii  more  than  three  files  are  being 
processed,  the  user  must  add  a DATAFILi  DD  statement  for 
each  file,  where  x is  a unique  one  digit  number.  Each  DD 
statement  must  have  a DSNAflF,  DISr  = £KF  and  AflP=  ' A PCRG  ' . The 
following  JCl  could  be  used  to  cun  a PASP  against  VSAM 
f lies ; 


//PSP  EXEC  XFASP, VSCAT-NIFS", 

//  I S Ar='  V3AM. FRirE  ', 

//  TSAH  1=  •VSAf' .SECOND  ' , 

//  LIB=FPII*E 

//P ASP , CAIA E ILE  DD  AMF='AN0PG' 

//PASP.  r.  ATAFIL1  CD  A^F='A«0FG' 

//PASP.SYSIN  DL  ♦ 

PASP  SCUFCF  STATEMENTS 

/♦ 

'he  only  operand  which  must  be  coded  for  tbe  AN? 
parametor  is  ‘AMOPG'.  Additional  operands  can  be  supplied 
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a£  di»scrib«^d  in  the  C3/VS  VSAK  Frogr  aumer ' Gui'it  (G(:2G- 
3838)  . 

6.9  SAM  to  VSAM  Procedure  (XSTOIS) 

The  procedure  which  is  used  to  load  an  ISAM  file  froi  a 
SAM  file  (XETOIS)  can  also  be  used  tc  load  a V'^AM  ?I1E.  To 
load  a VSAM  file,  the  user  ibus*^  first  define  the  file  usir.^ 
the  VSAM  service  routine  IDCAMS  {Section  6.1.2).  To  use  the 
XSTOTS  procedure  for  VSAM,  the  user  must  specify  t f e NIPS 
user  catalog  with  the  VSCAT  parameter,  specify  the  file  naae 
with  the  VSSSN  paraaeter  and  void  the  ISAM  files  by 
specifying  NC  AVSM=  ’ EfJ  MMY,  '.  The  following  JCL  could  he  used 
to  load  a VSAM  file: 

//STOVS  EXEC  XSTOIS,VSCAT=NIF£M, 

//  VSDSN=*VSAH.PRIHE' , 

//  VOfJVSM= 'DUMMY,  ' , 

//  SAM=PFIME,VSAM='ser=xxm cxx' 

/♦ 

6.10  XDUMPLIE 

To  run  an  XCMPLIE  job  against  a VSAM  file,  the  usee  must 
specify  the  NIPS  user  catalog  with  the  VSCAT  patanieter  anl 
the  file  name  with  the  ISAM  paraneter.  The  user  must  also 
override  the  DATAFILE  EC  stateaent  to  include  AMP='AM0RG'. 
The  following  JCL  could  be  used  tc  run  an  XEMFIIE  job 
against  a VSAM  file: 

//DMP  EXEC  XCPPIIE, VSCAT^NIFSM, 

//  ISAM=  • VSAM  .PPIME' 

//UTDMF.  CATAFIIE  DC  AMP='AH0RG' 

//OTDHP.SYSIN  DD  ♦ 

TCMELIE  CCNTFCl  CAFES 

/• 

Additional  AEf  operands  ®ay  be  specified  as  described  in  the 
OS/VS  VSAM  PtcgraitiBier's  Guide  (GC26-3838)  . 

6.11  XCLASS 

To  change  the  classification  of  a VSAM  file,  the  XCIASS 
procedure  would  be  used.  The  user  »ust  specify  the  NIPS 
user  catalog  with  the  VSCAT  paraieter  and  the  file  naae  with 
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t-h'?  lF:An  patame^ei..  The  DATAFILE  CD  stattncnt  Bust  h® 
overt  lion  tc  inciiif^e  AnP= 'A  flORG  ' . The  following  JCI  could 
be  ored  ‘o  change  the  c I asri  f icat  ion  of  a VSA.I  file: 

//CLS  EXEC  XCLASS,VGCAT=NIP£K,ISAn  = *VSAf'.F?  ir.F' 

//CLASS. DATAFILE  DD  AnP=*AHCPG' 

//CLASS. SXSIN  QE  ♦ 

CLASSIFICATION  CARD 

/• 

Addi‘  lot.al  AflF  operands  nay  be  specified  as  described  in  the 
OS/VS  VSAM  Fr eg  rammer *3  Guide  (GCi6-383R). 

6.1.:  rUT’^SCAE 

:o  use  a VSAM  til®  as  the  input  for  a field  scan  job, 
ijcor  specifies  the  NIPS  user  catalog  with  the  VSCAT 
pdiaiBC-t“r  and  the  file  name  with  the  ISAN  parairetet.  The 
LATA'^ILE  CD  statenent  mst  be  overriden  tc  include 

A rr’=  ' AMO  PG  * . The  following  JCL  could  be  used  ♦ c tun  an 

XUTE.iCAN  involving  a VSAPI  file: 

//  EXEC  XLTFSCAN,VSCAT=NIPSF,TSAf'  = ' VSAM.  PPIFE'  , 

//  I IE=EPTME,TFANS=PPTMET 

//nT''LnSCN. DATAFILE  DD  AMP='AFOPG' 

//urFLDSCN.SXSI t DD  ♦ 

SCAN  CARDS 

/* 

Addi*-ional  AME  operands  itay  be  specified  as  described  in  the 
OS/V'’  VSAM  Fr  ogr  amm  er  *3  Guide  (GC26-3830)  . 

6.1J  '^sr 

"he  xsp  frocedure  can  be  used  to  perform  index 
sp'f'c  i f ira  t ion  on  a VSAM  file.  The  U3er  must  specify  the 
NIPS  user  catalog  with  the  VSCAT  parameter  and  the  file  name 
with  tho  ISAM  procedure.  "^he  NEWFIIF  DD  statement  lust  be 
overiidon  to  include  AHP=*AMOPG’.  The  following  JCL  could 
be  used  ••o  index  a VSAM  file. 

//XSPV  EXEC  XSE.VSCAT^NIPSM, 

//  ISA H= ’VSAM .PRIME', XI NDEX=PRI HE, 

//  XV0l= 'SER^  xxxxxx ',  LIB=PRIM  I 
//XSP.NEWFILF  DD  AMP='AHORG* 
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//XBP.SYSIN  DD  ♦ 

INC5X  CAPDE 

/• 

Additional  AMP  operands  may  be  specified  as  described  in  the 
OS/VB  VBAM  Prcgramoier 's  Ouide  (GC  26-  38  30). 

6.14  XTPDISK 

When  the  user  is  unloading  an  Index  Data  Set  tor  a VSAM 
file  and  the  option  SIAT=YES  is  specified,  the  KIES  user 
catalog  must  he  specified  with  the  VSCAT  parameter  and  th'-- 
file  name  with  the  ISAM  parameter.  The  CATAFIIH  DD 
statem»nt  must  be  overriden  to  include  AMP=*AHCPG'.  The 
following  JCL  could  be  used  to  urlcad  the  inde>  of  a VSA" 
file: 

//STPS  EXEC  XTBCISK,VSCAT=IIIESM,S'"AT=YES, 

//  ISAM = 'VSAH  .PRIME*, X?NAME  = PFr BEX 
//XTR. DAT Af ILE  DC  AMP='AHOPG* 

/* 

Additional  AMF  operands  may  be  specified  as  lescribed  in  the 
OS/VS  VSAM  Programmer's  Guide  (GC26-3838)  . 

6.15  XKA 

The  XKA  procedure  can  be  used  to  perform  keyword 
analysis  on  a VSAM  file.  The  user  must  specify  the  NIPS 
user  catalog  with  the  VSCAT  parameter  and  the  file  name  with 
the  ISAM  parameter.  The  EATAPIIE  CD  statement  lUst  nc 
overriden  to  include  AMF='ABORG'.  The  following  JCl  could 
be  used  to  perforin  keyword  analysis  on  a VSAM  file: 

//KEY  EXEC  XKA,  VSCAT=MPSH, 

//  ISAM=* VSAM  .PRIME*, LIB=PPIME 
//XKA. DAT ATILE  DC  ABP=*AMORG* 

//XKA.SYSIN  DD  * 

XKA  CCKTPCl  CAFCS 

/* 

Addi*-ional  AME  operands  may  be  specified  as  described  in  the 
OS/VS  VSAM  Ptcgrammcr's  Guide  (GC26-3838)  . 
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GEN 


This  paraneter  defines  the  space  allocated 
ter  the  data  set  (CHECKDD  DD  card) 
utilized  in  checkpoint/restart  for  the 
•execute  only'  procedures. 

This  specifies  amount  of  cylinder  overflow  for 
a data  base  generated  ty  FN  cr  leaded  to 
disk  fros  tape. 

This  specifies  the  tape  density. 

This  defines  the  name  of  the  SAB  file  generat-l 
hy  this  run.  If  this  parameter  is  not  used, 
the  data  set  name  in  the  FBS  control  card  is 
used . 

This  specifies  the  error  opticr.  tc  te 
selected  when  an  I/O  error  occurs  while 
reading  SAB  transactions  in  FB. 

This  is  used  to  control  the  allocation  of 
the  NEfcFlLE  data  set  in  FB. 


Please  note  that  all  references  to  secondary  indexing 
func*-ions  include  keyword  indexing  functions.  Keyword  stop) 
word  tables  and  dictionaries  are  stored  as  meoibers  in  either 
private  user  libraries  or  in  the  ccimon  DUBBY. •’ILEL  library. 
To  obtain  keyword  functions,  use  secondary  indexing 
procedures  and  specify  symbolic  parameters  tc  include  the 
libraries  that  contain  keyword  data  (see  File  Libraries, 
Sec  tion  2.  3.  3)  . 


INDEX 


This  defines  the  number  of  cylinders  allocated 
to  the  index  cf  a new  ISAB  data  file. 


• ISAK 

ISAB 1 These  define  I'AK  cr  VSAB  data  file  names. 

ISAB2 

JOBLIE  This  defines  the  partitioned  data  set  containing 

program  load  modules. 

J03BAC  This  defines  the  partitioned  data  set  containing 

generative  code  vacros. 

LAB  This  defines  la^el  types  for  sequential  files. 
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5iZJJ<IIION 

This  paranetpr  defines  the  space  allocated 
fcr  the  data  set  (CHECKDD  DD  card) 
utilized  in  checkpoint/restart  for  the 
•execute  only'  procedures. 

This  specifies  aiiount  of  cylinder  overflow  for 
a data  base  generated  ty  FN  cr  loaded  to 
disk  fro*  ta  pe  . 

This  sp<;cifies  the  tape  density. 

This  defines  the  name  of  the  SAM  file  generat-1 
hy  this  run.  if  this  parameter  is  not  used, 
the  data  set  name  in  the  FMS  control  card  is 
used . 

This  specifies  the  error  opticr.  tc  he 
selected  when  an  I/O  error  occurs  while 
reading  SAM  transactions  in  FH. 

This  is  used  to  control  the  allocaticn  at 
the  N2WF1LE  data  set  in  PM. 


Please  note  that  all  references  to  secondary  indexing 
funCions  include  keyword  indexing  functions.  Keyword  stop> 
word  tables  and  dictionaries  are  stored  as  Bembers  in  either 
private  user  litraries  cr  in  the  cciBon  DUMMY. •'ILEL  library. 
To  obtain  keyword  functions,  use  secondary  indexing 
procedure's  and  specify  syabolic  paraaeters  tc  include  the 
libraries  that  contain  keyword  data  (see  File  Litraries, 
Sec  ti on  2.  3.  3)  . 


INDEX 


*ISAM 
ISAM  1 
ISAM2 

JO  BLIP 


J03HAC 


LAB 


This  defines  the  nuaber  of  cylinders  allocated 
to  the  index  cf  a new  ISAM  data  file. 


These  define  ISAM  or  VSAH  data  file  names. 


This  defines  the  partitioned  data  set  containing 
prograa  load  acdules. 

This  defines  the  partitioned  data  set  containinp 
generative  code  lacrcs. 

This  defines  label  types  for  sequential  files. 


ilAPAtlllE 

LAHIN 


LIB 

LIB1 

LIB2 

LIBDISP 

N AM  F 


H 30  BT  K 


ICTSi- 


MODL  7 £ 


NDIS? 


NEW?  ' T 


fNL’WVFM 


NPMU"P 


• MON 


DSZIMIIIOI! 

This  defines  the  label  type  for  the  SAM  data 
file  for  the  XTREISK  procedure  when  requesting 
the  statistics  cftion. 


These  define  user-library  file  names. 


This  defines  the  disposition  of  user  library(s). 

This  specifies  the  name  of  the  member 
to  be  listed  fros  a source  library. 

This  defines  the  nuabet  of  blocks  required 
to  held  the  Indei  Data  Set. 

This  defines  the  space  allocation  fer  teap- 
ciaty  storage  cf  rew  data  records  ard  data 
records  whose  key  or  length  has  changed 
during  an  FM  update. 

This  defines  the  naae  cf  the  user's  subroutine 
library  for  the  subroutine  loader. 

This  defines  the  disposition  cf  the  ISAM  data 
file  in  XP3  and  XSTOTS  procedures,  and  the  dis- 
position of  the  new  file  in  d6C  tc  1U10  conver- 
sion . 

This  defines  the  naae  of  the  new  FFl 
fer  FP. 

This  defines  the  naae  cf  the  newly 
generated  VSAM  file  in  FM. 

This  parameter  defines  the  ncrial  dis- 
pcsition  for  the  work  data  sets  and  the 
ChECKDD  data  set  utilized  in  checkpoint/ 
restart  in  case  of  an  ABEND. 

Ihis  is  used  tc  control  allocation  of  ISAM 
data  files  when  processing  VSAM  files  in 
FS  and  ISTOS. 
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2ABA r E12 P 
CDISP 


CJLDL  AD 


DSyiHITION 

This  defines  the  disposition  ol  the  cld 
data  file  in  the  X160CCN  and  the  XISTCf. 
ptoced  'jr  es. 

This  defines  the  label  parameter  cf  the 
1^10  data  file  durinf}  data  conversion. 
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ththlllSZ 

0 LD  ? A *! 


tSUlNIIIfil! 


OLDV  :A.r 


OfDI  '^P 


C V=’L^  W 

?P  I,'*  ^ 

?TF.T(>PL 

PTP.I^E-, 

QD’=' 


ijDFSr 


goisp 


y RT 


y^T''>P 


SAr 

3Ani 

3 AT  2 


This  defines  the  name  cf  the  old  SAK  file 
in  the  JTISTOS  ptccedare. 

This  defines  the  volume  for  the  old  SAM 
file  in  the  XlStOS  procedure. 

This  defines  the  disposition  of  the  old 
SAM  file  in  the  XISTCS  procedure. 

This  defines  the  number  of  cylinders  allocated 
to  the  overflow  area  for  a new  ISAM  data  file. 

This  defines  ♦•he  number  of  cylinders  allocated 
to  the  prime  area  for  a new  ISAM  data  file. 

This  defines  the  data  set  name  of  a partitioned 
data  set  containing  the  PTF  load  modules. 

This  defines  the  data  set  name  of  the  partitioned 
data  se^  containing  PTF  generative  cede  macros. 

This  defines  the  name  cf  the  RASP  qualified 
data  file  if  ether  than  a temporary  name  is 
required. 

This  defines  the  space  allocation  for  the  RASP 
qualified  data  file. 

This  defines  the  disposition  cf  the  RASP 
qualified  data  file  and  qualified  record  • 

table. 

This  defines  the  name  of  the  RASP  qualified 
record  table. 

This  defines  the  space  allocation  fer  the  RASP 
qualified  record  table. 


These  define  SAM  data  file  names. 


SEQNd  This  parameter  defines  the  data  set's  position 

with  respect  to  ether  data  sets  cn  the 
volume  . 


66 


CH-3 


aSS.I!iIIIQi 


SDISP 

SLAB 

3 AnOUT 


This  defines  the  disposition  of  the  user 
source  library. 

This  defines  the  label  type  for  sort 
work  tapes. 

This  is  used  tc  control  the  allocation  of 
the  FMSANOOT  and  fINCATA  data  sets  in  F“.. 


S0PT3P 


This  defines  the  cylinder  allocation  for  Iisk 
sort  work  areas. 


STAT 

STG 

SOriPCL 

TELK 

TDISP 

TEAMS 


This  requests  the  statistics  option 
for  XTFDISK  index  utility. 

This  defines  the  unit  type  for  sort  work  ,irea 

This  defines  the  urpt's  source  litrary  names. 

This  defines  the  blocksize  for  the  File 
Analysis  Statistics  transactior  data  set. 

This  defines  the  disposition  for  the  File 
Analysis  Statistics  transaction  data  set. 

This  defines  the  File  Analysis  Statistics 

transaction  data  file  naae. 


TRAMSP  This  defines  the  space  allocation  for 

tenperary  storage  of  update  transactions 
with  the  sort  key  and  logic  statement  name 
appended . 

•TRAhTYP  This  defines  to  the  FN  conponert  the  data 

set  containing  records  to  be  used  as  trans- 
actions during  execution  of  FR.  Eefault 
value  is  ISAM.  The  value  for  this  para- 
xeter  is  either  ISAM,  SAM  or  VSAM  and  denotes 
the  access  method  associated  with  the  file 
being  revised. 
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Ta  BU  FNO 


PSLimilSl! 


This  defines  the  nuaber  of  buffers  used  by 
some  of  ♦he  transaction  tenporary  data  sets. 

TBCH  This  specifies  the  TRTCH  DCB  parameter  for 

seven-track  tapes. 
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£ALA-fl|£ 
?JCH  K 

UFFT 

ui'^A.r 

ULIB 

ULTBI 

ul:b2 

ugo? 

UQPT 

:js  AM 

UBMM  CT 

USMOfIT 

USOU"CL 

U1410 

VCHK 

VPPT 


2£ZIHlIIfiN 


This  parameter  defines  the  unit  type  for  the 
CHECKDD  DD  s^atenert  in  fh'i  'eAecute  only' 
pi ocedur  es . 

Th's  defines  the  unit  type  of  the  new  FFT 
for  Ffi. 

This  defines  the  unit  type  for  all  ITAM  t i !»■ 


These  define  the  unit  type  for  all  user 
1 itrar  ies. 

This  defines  the  unit  type  for  the  RASP 
qualified  data  file. 

This  defines  the  unit  type  for  the  RASP- 
qualified  record  table. 

This  defines  the  unit  type  for  all  SAM  files. 


This  defines  the  unit  type  of  the  tape  or. 
whiich  the  ne'i  file  will  be  written  if  major 
control  fields  are  changed  during  an  FM 
SAM  or  FP  run. 

This  defines  the  unit  type  of  the  tape  on 
which  the  new  file  will  be  written  if  no 
major  control  fields  are  changed  durirg  an 
FM  SAM  or  ?P  run. 

This  defines  the  unit  type  for  ♦•he  user 
source  library. 

This  defines  the  unit  for  a 1410  data  base. 

This  parameter  defines  the  volume  for  the 
CHfCKCC  DD  statement  in  the  'execute  only* 
ptcced  ures. 

This  defines  the  volume  of  the  new  FFT 
for  FR. 
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k£A 2|ISf 
ISA** 

[s  Ar  1 

:sA  •'7 


VLIB 
VLI  B’ 

vl:r2 


VT  sD  r>: 
VOV=’I,Oi. 
VP?I  '*  E 


'/SO'li'CL 


VQDP 


VOJ'T 


£ if  IN  Hi  01! 


These  f^efine  *•  vclume  for  all  ISAP  files. 


These  define  the  vclume  for  user  libraries. 


These  define  ♦■he  volumes  on  which  the  re- 
spective pcrticns  (INDEX,  OVflCii,  EFIPE)  of 
the  new  TEAi  data  set  will  he  allccated  durir'-j 
an  Ffl  generate  rcn. 

This  defines  the  volume  of  the  user's  source 
1 ihrar y. 

This  .defines  the  volume  for  the  RASP-qualif ied 
data  file. 

This  defines  the  volume  for  the  RASP-qualif ied 
record  table. 


'/SA“. 

VSA.t  ’ These  define  the  vclume  for  all  SAff  files. 

VSA?-'' 


VSCAT 

# vsnsN 


V S ^ C” 


iiT 


» vsoi.rr 


This  defines  the  NIPS  user  catalog 
for  VS  AH  processing. 

This  defines  the  VSAH  file  fceirg 
processed  in  FP,  FE,  ISTOS,  and  S'^'CIS 
and  the  new  VSAH  F FT  in  FP . 

This  defines  the  vclume  on  which  the  new  file 
will  be  written  if  majcr  con*rcl  fields  are 
changed  during  an  FH  SAM  or  FR  run. 

This  defines  the  vclume  on  which  the  new 
file  will  he  written  if  nc  majcr  control 
fields  are  changed  during  an  FH  SAH  cr 
FP  tun. 

This  defines  the  VSAH  file  being  revised 
in  PF. 


V 1 u 1 ) 


This  defines  th^  volume  for  a 141C  data  base. 


A 
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U&MlIlSl 


2S2INIIIQN 


ZDIS? 


XFDI.SP 


XPNA«  E 


XFtJN  IT 


XPVOL 


XINDEX 

XINDE71 

XrNDEX2 

XTOISP 


XTNAKE 


XTVOL 


XCJNIT 

XVOL 

KVOLI 

XVOL2 


This  i^fines  tb“  disfosition  of  the  Index 
tat  a Set, 

This  parameter  describes  the  status  of  tl;e 
”FECB"  Tnd^x  Data  Set,  and  indicates  what  is 
tc  be  done  wi«-h  it  after  te  r iri  na  t ion  of 
UTNEX'^FR. 

This  parameter  defines  ♦ihe  name  qiven  to 
the  "FFOB"  Index  Cata  Set  for  CTMDXTPP. 

This  UTMDXTfP  parameter  is  used  tc  specify 
inforsation  about  the  input  unit  used  by 
the  "FROB"  Index  Data  Set. 

This  OTNDXTfR  parameter  provides  information 
about  the  volute  or.  which  the  "F?CB”  Index 
Cata  Set  resides. 

This  defines  the  name  of  the  Index  Data  Set. 

This  defines  additional  Index  Cata  Sets  to 
be  used  in  a merge  file  retrieval. 

This  parameter  describes  the  status  cf  the 
"TO**  Index  Data  Set,  and  indicates  what  is 
to  be  done  with  it  after  ter  ti  rat  icr.  cf 
CTNDXTPR . 

This  parameter  defines  the  name  given  to  the 
"TO"  Index  Data  Set  for  UTHDXTEP. 

This  DTNDXTPP  parameter  provides  irfcrtnation 
about  the  volume  on  which  the  "TO"  Index 
Data  Set  resides. 

This  is  the  unit  type  for  the  Index  Cata  Set. 
These  define  the  volume  for  Index  Data  Sets. 
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Appendix  E 
NptJT  .'50URCE  DtNA.IE 


PROCjrUR  E 
XOP 

XOPSD 

XF« 

XFS 

X8ASr 

XISTOS 

#XSTOIS 

XSUBLDP 

XFHEX 

XPASPEX 

XOPEX 

XOPSDEX 


Appendix  C 

PEOCEDUREE  DEECPIETTONS 


DESCRIPTION 

This  procedure  is  normally  only  used  to  publish 
the  results  of  a RASP  retrieval  run  ct  to  struc- 
ture an  PIT. 

This  procedure  is  used  to  publish  directly  from 
a data  base  or  tc  structure  a PIT. 

This  procedure  is  used  to  perfcrm  all  fil*’  main- 
tenance functicns. 

This  procedure  is  used  to  structure  a data  base. 

This  procedure  is  used  to  retrieve  and  sort  data 

frcB  ere  ir  mere  data  files. 

This  procedure  is  used  to  convert  an  ISAM  cr 

VSAM  data  file  to  a SAM  tape  data  file  cr 

copy  a SAM  tape  data  file  to  a SAM  tape  data 
file. 

This  procedure  is  used  to  convert  a SAM  tape 
data  base  to  ar  ISAM  or  VSAM  disk  data  base. 

This  procedure  is  used  to  link-edit  a user  sub- 
routine (which  has  already  beer  assembled)  into 
a file  library  with  the  necessary  control  in- 
formation to  load  the  subroutire  at  execution 
tine. 

This  procedure  is  used  to  perfcrm  file  maint- 
enance updates  usieg  stored  logic  statements. 

This  procedures  is  used  to  retrieve  and  sort 
data  from  one  cr  more  data  files  using  s^-cred 
retrievals. 

This  procedure  is  used  to  publish  the  results 
of  a RASP  retrieval  run  using  a stored  RI'^. 

This  procedure  is  used  to  publish  directly 
from  a data  file  using  a stored  PIT. 
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BISCEIPIICN 


XTABCiFN 

X 1 41 OCON 

X360CON 

XFP 

XOBI  F 

XQUI  FSl> 

XDfir!.  IB 

XSIIIICHK 

XCL AFS 

XtJTr  .'.CAN 


X ”?  U)  UP  C 


XSP 


This  procedure  is  used  to  generate  tables  and 
place  them  in  a user  litrary. 

This  procedure  is  used  to  convert  a NIPS  360 
FFS  data  base  tc  a 1410  NIPS  data  base. 

This  procedure  is  used  to  convert  a 1410  NIPS 
data  base  to  a NTFS  360  FFS  data  tase. 

This  procedure  is  used  to  revise  a NIPS  36C  FFS 
data  base  to  a new  fcraat. 

This  procedure  is  used  to  create  a NIPS  360  FFS 
data  file  from  ^he  answer  file  produced  by 
PASP . 

This  procedure  is  used  to  publish  the  results 
frci  a PASP  retrieval  run. 

This  procedure  is  used  to  retrieve,  sort,  and 
output  directly  from  a NIPS  36C  FFS  data  file. 

This  procedure  is  used  to  print  logic  state- 
ments and/or  report  names  from  a NIPS  360 
FFS  data  file. 

This  procedure  is  used  to  test  user-written 
subroutines. 

This  procedure  is  used  to  change  the  classi- 
fication on  any  NIPS  360  ^FS  data  file. 

This  procedure  is  used  to  scan  compcnent 
source  statements  and  count  the  number  of 
data  field  references  in  each  source 
St  at  ement . 

This  procedure  is  used  to  add,  replace, 
delete,  cr  list  source  members  from  a 
litrary. 

This  procedure  is  used  to  either  generate 
cr  update  an  Index  Data  Set  based  on  an 
ISAH  data  file. 


JOB  PCPPAP ATICN 


Pee*  the  IB3  QEilJtiUa  _J3^Ccntr2 
tanjua^e  R2lS£"E£2*  'cri  nc2R-670«  fcr  a description  of  tii 
use  of  return  cedes. 
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App«?ndix  E 

NIPS  PRCCECURE  PD  SIATEflENT  USAGE 


PROC_hDypE:  XFS  (File  Structuring) 


#srE  PCAT 

STEPLTB 
SLIB 
#NEW VSF 

N EMF  11'=' 


SOPTLTB 

50HT  WKOI 

through 

SORTWK06 

SOI-"’  N 


SCPT'MJT 


SiSO  '!" 


SYStriiir.? 

SYSP'dN'" 


Defines  the  NIPS  user  cataloc  for  VEAM 
processing. 

Defines  the  NIPS  system  library. 

Defines  the  user  and  system  libraries. 

Defines  the  VSAtl  FFI  output  by  PS  phase  2, 

The  file  must  have  been  previously  defined 
by  IDCAPS. 

Defines  the  FFT  output  of  FS  phase  2.  It  is  an 
indexed  sequential  data  set.  If  the  FFT  is  to  be 
saved,  the  ISAM,  VI5AN,  and  DISP  symbolic  par- 
ameters must  be  coded  accordingly. 

Defines  the  S/36C  Operating  System's  scrt  library. 

Detines  work  data  set  used  by  SORT.  They  must 
all  be  the  same  unit  type. 


Defines  the  output  of  FS  phase  1 and  irput  to 
SORT.  Contains  the  temporary  FFT  entries,  one 
pet  FIEID  or  GROUP  card. 

Defines  the  output  of  SORT  and  input  tc  FS 
phase  2.  Ccntains  the  temporary  FFT  entries 
sotted  into  alphabetical  order  on  FIEID  and 
GROUP  names. 

Defines  the  error  list  from  SORT.  Currently 
set  up  as  a dummy  data  set. 

AEFND  dump  printer  output. 

Defines  the  printed  output  of  FS.  Contains 
FFT  listings  and  any  error  messages. 


76 


CH-3 


.iCD  fFSPAPATICN 


C^LVZW 


CefiLfs  the  '’FT  output  that  ifi  scratch€d  if 
th-i  FS  tun  was  unsuccessful  due  to  errors. 


JC'JRCFPT  Defines  a printer  output  data  s«t  used 

for  source  listings. 

SOUSCLIR  Detines  a library  used  tc  stcre  source 

uat  fet ia  1 . 


sysUT"'  Temporary  data  se^  for  INDEX  Specif  ication 

statements  to  be  processed  by  the  INDEX 
Specification  processor,  IXSP,  which  builds 
descriptor  (D)  records  for  the  file. 

SfSIN  Defines  the  input  source  statements  fct  FS. 

This  statement  must  be  supplied  by  the  user 
as  //FS.SYSTN  DC  *. 


PROCEDURE:  XFR  (File  Revision) 


The  follcwing  DD  statements  appear  in  the  FP  and  FFTST 
steps  of  this  procedure.  For  a description  of  all  ether  DD 
statements,  refer  tc  the  XF M procedure. 


#STRPCAT 

STEPLIB 

SYSOIIT 

SY3PF  IN'" 


Defines  the  NIPS  user  catalog  for  VSA1 
processing. 

Defines  the  NIPS  system  library. 

Defines  a printer  output  data  set  fer  sett 
m essa  ges . 

Defines  a printer  output  data  set. 


SYSUCunP  ADF,ND  dump  printer  cutput. 


SYSPUNCH 

•OLDVSH 

•WSM^ILE 

OLDFI  IR 


Defines  a punch  output  data  set. 

Defines  the  VSAB  data  file  to  be  revised. 

Defines  the  data  set  containing  the  new 
VSA**  PPT. 

Defines  the  ISAM  data  file  to  be  revised. 
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SAflFILS 

DATAFIL" 

TtDPCCS 

POOLF  CDF 

PP  VSN  A 


Defines  the  S Afl  data  file  tc  h"  rfvised. 

Defines  a data  set  containing  the  nev  I£A“  ?F"". 

Defines  a tempcraty  da^’a  set  foe  generated 
TDD  cards. 

Defines  a teaporary  data  set  for  generated 
FCCL  stateaents. 

Defines  a temporary  data  set  containinc  first 
24  generated  logic  stateaents. 


vioa  r FE?HP  ATICN 


F P vs  *.  £ 


f pvs;.  c 


? r s F f.  c 


SOPT  LI  » 


jr  - T ' 


:;n?r  ■.‘'01 

I he  n icjh 
SOr  : « ‘'Oa 


Sv^rTOn? 


s fsr :. 


TPAN " YP 

ISA- 

S A- 

» V^A  r 


Cofines  a temporary  data  set  containinc  second 
cjroup  cf  24  <jen®rated  logic  statements  if 
r.  eede  d . 


Defines  the  eempotary  data  set  containing  a 
third  group  of  24  generated  logic  statements  if 
needed . 


Defines  the  temporary  data  set  ^KS  ccntrcl 
card  for  fil®  generation  steps;  passed  tc 
SENT  and  GEND  steps. 

Defines  the  S/360  Operating  System's  Sett 
libra  ry. 

Defines  th®  temporary  data  set  containing 
intermediate  werk  recerds  to  be  sorted. 

Defines  - he  «or)c  data  sets  used  hy  SOFT. 
They  must  all  be  the  same  unit  type. 


Defines  -he  temporary  data  set  for  sorted 
intermedia te  work  records. 

Defines  the  input  source  statements  fet  PF. 
This  statement  must  te  supplied  by  the  user 
as  //FP.SYSIN  DD  ♦. 

Defines  the  DD  card  -c  be  used  for  input 
transaction  -o  PR. 

Defines  -c  Fd  where  update  transactions  nay 
he  found.  Entries  in  this  DD  correspond  to 
-h=*  CIDFILP  DD. 

Defines  tc  Fd  whero  update  transactions  may 
te  found.  Entries  ir  this  DD  correspond  to 
r ha  S ARFILE  DD. 

Defines  tc  *d  where  update  transactions 
may  be  feund.  Entries  in  this  DD 
correspond  to  the  OLLVSd  DD. 
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PftOCECtJP  E: 

♦s:epcat 

JTEPL  IB 
SYSO'JT 
SYSPPINT 
SYSLIET 

S YSUCn^P 
» vsa  FILE 

»NE«  VSf* 

DATAFILE 

NEWFI LE 

P!1C0’'.f1 

PMFL  nc 

FMTP  ANS 

FfiLABELS 


YFK,  XFEfcX  Ea  intend  rcf?) 

Lcfir.  €s  the  NIPS  user  catalcq  for  VSA" 
process  in  q. 

Defines  the  NIPS  systei  library. 

Printer  output  fcr  scit  aessaq^s. 

Printer  output  for  tesaindet  of  FP. 

Printer  output  for  asseabler  listing  cf  logic 
stat  eaer.ts. 


ABEND  duap  printer  output. 

Defines  the  VSAH  data  file  to  be  processed 
by  FH. 

Defines  the  VSAH  data  file  generated  by  an 
FHS/GEN.  This  data  file  aust  have  been 
previously  defined  by  ICCAHS. 

Defines  the  indexed  sequential  data  file  tc 
be  processed  by  FH. 

Defines  the  Indexed  sequential  data  file 
created  durinq  an  FH  generation  tun.  Ibe 
user  noraally  codes  the  INDEX,  PRIRE,  and 
CVFLCH  syabolic  paraaeters  accordingly  cn 
the  EXEC  card. 

Defines  a teaporary  data  set  used  fcr  section 
coBBun icat ion  data. 

Defines  a teaporary  data  set  used  fcr  logic 
stateient  ccapilaticn  and  contains  foraatted 
iaages  of  the  user's  input  stateaents. 

Defines  a teaporary  data  set  containing  the 
iaages  of  card  transactions,  if  any. 

Defines  a teaporary  data  set  containing  lists  of 
ICOL  instruction  labels  used  in  the  logic  state- 
aents  . 
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»^M2: AT 
K-icn 

ff'C*’  "ILT 

PrLITFIL 

sy2L : 3 

P KLEIN 

SYSLrnO 

rEKLI-  PEC 

SORTI,  13 

30PTI N 
TAPRI  N 

30?'"  WKO  1 
♦:  hro  uqh 
30PTWK06 

SORTf'')? 

TAPEfOr 

TAP  IIWKO'< 
th  ro  ijqh 
•^APEWKOP 

fr.LEI  IL*^ 


Prin’-er  ouTput  for  sTa^istics  gatheif'!  during  the  run. 

Defines  a teitporary  ia'-a  set  containing  an  intet- 
aeiiate  fcm  cf  the  Icgic  Ftateaent  control 
r ecor  ds. 

Defines  a teaporary  da^a  set  ccntaininc  the  logic 
state«ent  ccn*rcl  aeiter  records  in  their  final 
for  aat. 

Defines  a teapocary  data  set  containing  the 
literals  produced  for  logic  stateaert  ccipila- 
t ion . 

Identifies  the  library  containing  those  aacros 
necessary  to  generate  logic  statenerts 
(Gen  Cede  aacres)  . 

Defines  the  teaporary  data  set  containing  the 
output  of  the  coBpiler. 

Defines  the  data  set  containing  the  logic  state- 
nent  CSECT  load  Bodules. 

Defines  the  temporary  data  set  containing  the 
list  of  the  names  of  temporary  logic  statements. 

Defines  the  S/360  Operating  System's  sort 
1 ibra  t y . 

Defines  the  data  se*s  containing  the  urserted 
update  records. 

Defines  the  werK  datu  sets  tesidinj  on  disk 
and  used  by  sort. 

Defines  the  data  sets  centaining  ♦he  sorted 
updat  € records. 

Defines  the  mork  data  sets  residing  on  tape  and 
used  by  scr t. 


Defines  the  tpmporary  data  set  containing  the 
linkage  editor  control  statements. 
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CH-3 


JOB  FPBPAP  AT  ION 


•PECrlN 

BEC^OflT 

HECSWKO  1 
through 
P EC3WK06 

TPANS 

EHSBTTBL 

#FfIAtiXOP 

PONCH 

A0X1 
thro  ugh 
AUX5 

FUTAUX 

SLIB 

OHHACS 


refines  a temporary  data  set  containing  rew  data 
records  and  subsets  tc  be  used  as  input  to  a data 
recor  d sort.  These  reccrdis  will  eventually  b“ 
merged  into  ♦•he  data  file  tc  form  the  nev  SAr 
data  file. 

Defines  a temporary  data  set  containing  tte 
sorted  new  data  records  and  subsets. 

Defines  the  disk  sort  work  areas  for  the 
sort  of  the  data  records. 


Defines  the  transaction  input  file.  This  DD 
statement  must  be  overridden  by  the  user  tc 
identify  a single  disk  cr  transaction  data  set. 
For  multiple  transaction  sources  see  section  3.’. 

Defines  the  temporary  data  set  containing  a 
list  cf  the  periodic  set  numbers  to  be 
accessed  by  the  FM  run. 

Defines  a temporary  data  set  containing  all 
the  auxilliary  output  records.  All  aunilliary 
records,  regardless  of  device  they  are  tc  be 
written  tc,  are  first  written  to  FUAUXCF. 

Defines  the  punch  data  set  for  the  user's 
punched  output. 

Defines  the  data  sets  fcr  tape  or  disk  auxiliary 
output.  The  user  must  cverride  these  tt 
statements  to  describe  the  data  sets  be  wishes 
tc  produce. 

Defines  a temporary  data  set  containing  out- 
put for  a second  printer  output. 

Defines  a temporary  partitioned  data  set 
containing  temporary  logic  statements,  and 
the  user  and  system  libraries. 

Defines  a temporary  data  set  containing  the 
compiler  input  of  those  macros  generated 
for  Ordinary  Maintenance  (OM). 


81.1 


CH-3 


JCB  lF2PARATICli 


PflHACPO 

PJIOtJTIAC 


Cefines  the  teaporary  data  set  containinc 
input  tc  the  pm  coifiler.' 

Lefines  the  teiporaty  data  set  containing 
Gen  code  aacro  stateaents  that  will  he  in 
tc  the  PM  ccapiler. 
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Ci 


JCiJ  rfl'f'APATICN 


aEN  FILE 

IT  p r T^p 

Zdir?  ILE 

EMN'’Lrir> 

FrirEK  IL  E 

FMAJ^r  :L 

EM  so  ' AND 

,*J  ELS'-  P 

;!PLM  nCS 

A3SE  « IN- 


IS Ar 


iAMF  : IS 

?MNn  A-^A 


Defines  a temporary  data  sp t used  as  a work 
area  for  the  OM  compiler. 

Same  properties  as  PKIITFIL  but  dedicated 
for  on  use  only. 

Defines  a da+ a set  used  as  a work  area  ty  tie 
on  coirpiler. 

Same  properties  as  EMFLUD  but  dedicated  for 
C (“  use  only. 

Defines  a temporary  data  set  containing  extended 
TDD  formats  for  on. 

Defines  a ‘•cmporary  data  set  containinc  extended 
ADD  statement  records  for  on. 

This  DD  statement  prevents  the  update  of  a data 
set  simultaneously  by  SODA  (Source  Data) 
and  Fr. 

Defines  a temporary  data  set  containinc  error 
messages  reflecting  these  errors  defected  ty 
the  NFl  editing  steps. 

Defines  a temporary  data  set  containinc  NFL 
generated  macro  prototypes  with  their  corre- 
sponding parameters;  it  is  used  as  input  to  the 
macro  generator. 

Defines  two  concatenated  data  sets  containing 
generated  macros  and  those  values  specified 
in  Of*  DS’^INF  statements;  all  used  as  input 
to  the  assembler. 

Defines  a temporary  ISAM  data  set  containing 
the  FFT  and  logic  statement  library  during 
sequential  file  processing. 

Defines  the  segueneial  data  set  to  te  processed  by 
FM. 

Defines  the  sequential  output  data  file  when 
record  key  changes  occurred  during  sequential 
file  processing. 
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CH-3 


JCB  fFEPARATICN 


F^S AflOUT 

SIAT 

#TH AM  ST 

SOUPCPPT 

SOURCLI 8 

S YSIN 

IXTP  ANS 

XINDEX 


Defines  the  output  sequential  data  file  that 
is  produced  by  sequential  file  prccessing 
without  key  changes. 

Defines  the  temporary  data  set  used  by  the 
statistics  capability. 

Defines  a temporary  data  set  containinc 
the  File  Analysis  Statistics  Transactions 
data  file. 

Defines  a printer  cutout  data  set  used  for 
source  listings. 

Defines  a library  used  to  stcre  source 
material. 

Defines  the  input  scurce  statements  for  FM. 

This  statement  must  be  supplied  by  the  user 
as  //FP.SYSIN  DD  *. 

Ibis  defines  the  teipcrary  SAM  data  set  used  to 
hold  the  Index  Transaction  Records  for  input  to 
Index  Maintenance. 

This  defines  the  Index  Data  Set. 


JCU  1:  FEPAR  ATICN 


Proc ertur §: 
tST^rCAT 


STEP  I,  IH 

DATAFILE 
DATA? IL1 
DATA  F TL2 

SAMFILE 

SAMFILE1 

SAMF1LE2 

gPFI  I E 


SORTOU'^ 


SUPTir 


SOFT  1.  KOI 
t hro  tiqh 
SCRT(*K06 

SORT  I.  IB 


SYSL'Tn 


SLI  B 


Dim 


XPASP,  XRASPEX  (P^'ttieval  and  Sort  Processor) 

Defines  the  NIPS  user  catalog  for  VSAF 
processing. 

Defines  the  NIPS  system  library. 

Defines  the  indexed  sequential  data  files 
to  be  interrogated  ty  FASP. 


Defines  the  sequential  data  files  tc  be  interrogated 
by  RASP. 


Defines  the  sequential  data  set  generated 
by  RASP  containing  the  retrieval  source  r 

statements  and  the  subset  of  qualified  records 
from  the  retrieval. 

Used  ty  S/360  sort.  At  the  end  of  retrieval 
proper,  this  data  set  is  the  Qualifying  Record 
Table  (QRT)  generated  during  retrieval  time. 

Defines  the  input  data  set  (OPT)  to  S/360 
sort. 

Defines  the  work  data  sets  used  ty  S/36C  sort. 


Defines  the  f;/360  Operating  System's  sort 
1 ibr  ar  y . 

Defines  a temporary  data  set  which  first  con- 
tains RASP  source  statements  and  finally 
compiled  retrievals.  If  permanent  retrievals 
ate  specified,  they  are  copied  frera  SYSIECD 
to  the  data  set  defined  by  the  SLID  DD  state- 
ment. 

Defines  a temporary  partitioned  data  set  con- 
taining temporary  retrievals,  the  user  library 
and  systen  libraries. 

Defines  the  user's  primary  file  library. 
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JOii  TFEPAPATION 


£ roced  urp : 
#STE  PCA? 


STEPLIB 

DATAF ILS 
CATAF1L1 
DA'^AFIL2 

SAM  FILE 
SAMFIIE1 
SAM  FILE  2 

DLI  B 
TLIB 

SYSPFINT 
S YSOIJT 

SYSIJDUMP 

SYSUT1 

SYSUT2 

SYSUT3 

SYSPUNCH 


SYSLIE 


SYSLMOD 

SYSTPPT 


OPIWCF 


OPST.ST 


XCP,  XOPSC,  XCFEX,  XOPSEEX  (Output  Processor) 

Defines  the  NIPS  user  catalog  for  V5AM 
p rocess ing . 

Defines  the  NIPS  system  library. 

Defines  the  indexed  sequential  data  tiles  prccessel 
ty  OP  . 

/ 

Defines  the  sequential  data  files  processed 
by  CP. 

Permanent  RITs  will  be  stored  on  one  of  these 
data  sets. 

Defines  printer  output  data  sets. 

AEEND  dump  printer  output. 

Defines  temporary  week  data  sets. 


Defines  a temporary  data  set  containing  the  objece 
modules  resulting  from  the  assembly. 

Defines  a data  set  containing  the  Gen 
Code  macros  used  to  generate  a RIT. 

Defines  an  output  library  for  temporary  data  sets. 

Defines  the  printer  output  data  set  for  the 
assembler  and  linkage  editor  listings. 

Defines  a temporary  data  set  containing  CP 
supervisor  control  cards.  Created  ky  OPBFGIN 
and  us^d  by  OPCTLPRC. 

Defines  a temporary  data  set  containing  FIT 
specification  decks.  Created  by  OPfcEGlN  and 
used  by  OPT  AG. 
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CH-3 


JOU  PBEPAPATICN 


OrCP'-'  ATE 


OPCOKFEC 

iTPUC'' 

INSTS 


LCF 


LCT 

L ITSTP 


U Af*  D f 


LTTAL' 


pr;  TA  1. 


C(;c 


EP'?  r A F 


Defines  a temporary  data  set  containinc  the 
PIT  create  cards  and  pointers  to  the  ccrrespond- 
ing  specification  deck.  Created  ty  OPEEGIN 
and  used  by  OPTAG. 

Defines  a temporary  data  set  containing  com- 
munications for  OPTAG.  Created  by  CPbEGIN. 

Same  as  CtSTST. 

Defines  a temporary  data  set  containing  the 

macro  calls  and  instructions  comprising  a 

PIT.  Created  by  OPTAG  and  used  by  the  assembler. 

Defines  a temporary  data  set  containing  the 
linkedit  control  cards  for  permanent  PIT. 

Same  as  LCF  but  fcr  temporary  PITs. 

Defines  a temporary  data  set  containing  macro 
definitions  generated  by  OPTAG  defining  the 
ccmmun  icat icns  CSECTs  cf  the  PITs  that  have  been 
structured. 

Defines  a temporary  data  set  containing  a name- 
definiticn  string  defining  the  attributes,  in 
coded  form,  of  field/grcup  names. 

Defines  a temporary  data  set  containing  a table 
of  literals  defined  in  a PIT.  Created  and  used 
by  OPTAG. 

Defines  a temporary  data  set  containing  a table 
in  internal  format  cf  the  functions  of  a FIT. 
Created  and  used  by  OPTAG. 

Defines  a temporary  data  set  containing  a table, 
ty  PIT,  cf  CSECT  ID  used  for  constructing  the 
link-edit  control  files. 

Defines  a temporary  data  set  containing  a table 
of  errer  cedes  recognized  in  the  editing  of  the 
PIT  specification  decks. 
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CH-  1 


JOB  PFEPAPA'^ION 


SYSIM  Defint's  t hp  inpu*  source  'leek  in? 

must  le  supplied  by  the  user  as  //SUD.SYSIN  DD  ♦. 

Il£2£:£;!lili“ : 'CSTOIS  (Tile  Load  Utility) 

#5TFPCAT  Defines  the  NIPS  user  catalcq  for  VSAM 

processing. 

■STTPT  IB  Defines  the  NIps  system  library. 

#VSr'.'":LD  Defines  the  VSAf?  data  file  tc  he  loaded. 

This  data  fil®  mus*’  have  been  previously 
defined  by  TDCA^IS. 

DATArlLF  Defines  the  indexed  sequential  data  set  to 

creat  ed. 

-SA«FILD  Defines  the  sequential  data  set  usee  to  crea-^e 

t ha  I SA  n da  ta  set  . 

SYSP^IN'^  Defines  a printer  output  data  set. 

SYf^UDUtfP  AEFND  dump  prin^-er  output. 

E£2££dure:  XISTOS  (File  Unload  Utility) 

tSTFPCAT’  Defines  the  NIPS  user  catalog  for  VSAM 

processing. 

STDPLID  Defines  the  NIPS  system  library. 

#VSMFTLF  Defines  the  VSAM  data  set  to  be  unleaded. 

Defines  the  indexed  sequential  data  set  to  be 
unloa  ded . 

Defines  the  sequential  data  set  tc  be  copied. 
Defines  a printer  output  data  set. 

ABF, ND  dump  printer  output. 

Defines  the  sequential  data  set  to  le  created. 


DA'^A'’ILF 

SAMFILF 

SYSPPTNT 

SYSUDUMP 

SAKOtr 
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> PPPA^A 

■^ICN 

nr  iur'^: 

■■'141CC'rN  (36C  to  1410  Data  Con v'^rsion) 

s ’’rr^  TH 

Pefir.e?;  the  N'^PS  syst-^ir  lihnary. 

SYSP'  ^N”" 

s y;?fTiT 

Petiiies  pripi'^r  outfi*  data  s^te. 

S Y BII  i'".':? 

AB'='\P  dump  printer  cutput. 

HA’^A  "IT 

Defines  th®  NIPS  36C  FF?  ISAM  lata  set  to 
converted  to  a 1410  data  file. 

N FW"  T I =' 

refines  the  sequential  14''0  da«-a  file 
h y t h is  ui-  i li  t y . 

qenerat  ed 

S Y S I N 

Defines  the  1410  FFl  object  deck  and 
supplied  by  the  user  as  //Gn.SYSIN  DD 

must 

■». 

be 

Proc'  'I'lr 

"IfiCCON  (1410  to  3 60  Data  Conversion) 

SYSP?’"  N'” 

5 Y'^dPT 

refini^s  printer  output  da*'a  se’-s. 

s Y'T  11  ’'MM  n 

AG" NO  lump  printer  cu*put. 

PA'^A  - II  .'^ 

refin°s  the  NIPS  i60  TFS  ISAN 

!=■  II, 4 ■• ') 

Defines  the  14IO  data  file. 

N F’a  : L 

Defines  the  NIPS  3 6 C S’"  S se  q tie  n t : a L d 
yeriet  a*£3d  by  ♦’his  utility. 

a ta 

set 

S YdlM 

Defines  the  1410  FFT  object  deck  anc 
supplied  by  t h®  user  as  //GC.SYSIN  DD 

must 

*. 

be 
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JCi’  fF'’PAFATTCN 


srrri.IR  DefifiGF  the  S'^P'5  systf’B  lilitary. 

SYSr^IKT  CnfiriPf-  d {.rin^pr  outpu*-  iara  sat. 

3YS'i:>'J«P  ALZND  riump  prin^-^r  citput. 

jP’^FriE  L‘iri:«-s  i Ja*  a SPt  containin']  sor*-‘?(’  pcir*:tir 

ir;tc  thp  cr>Pir^  created  by  hh'SP. 

■jpFTL"  I'‘>fir*-s  a data  set  con’’ a ini  nq  ’•hor*  dd*-d  leroi  I.; 

jijaii  f 1 ad  hy  b ^ >P. 

SA'l'^IIE  Defines  i sc'j'jprtidl  data  set  yhich  bis  all  t 

propft*ie£  cf  a S/lbC  GAM  data  se*-. 

SY3TN  refines  the  Qr<'''9Dr  source  inpu*  statements.  '..‘li;: 

stjteii,ent  must  be  supplied  ty  the  user  i? 

//'?PT(;r;F  . SY  GI  N ■'D  ♦. 


.Jf''  i FT'-'AP  A'lCr 


XCUIP'^P  (QuicK  Inquiry  Proco??soL) 

• STi'-fA-  Ltfint5^  ♦ho  MIPS  user  rahalcq  for  VSA" 

process  in  q. 

DofinfeE  tho  NlPf^  system  library. 

.'iYrU''l  Lofines  tPitfcrary  wctk  >lata  Eehs  'ised  for  structur- 

‘S'iT>[r2  inq  the  qu“ry,  and  fct  Indox  ®rocnsEing. 

•iys'i-"? 
qyju"’  4 

r-ifines  uf.or  and  system  lihrarias. 

Letinoo  t.  ho  ind^xt^d  sequential  1a*- a sets  accessed 
hy  .itllP  as  secondary  files  in  In*-orfilc  Cutput. 

refines  t h”  sequent  ial  data  se*-  accessod  fcy 
CMIP  in  source  direct  mode. 

Defines  a printer  cutput  data  net. 

Defines  the  ♦omporary  data  set  con*-aininq 
♦emporary  queries  if  the  queries  are  ♦ c te 
stored  cn  QDSPYLIB  after  execution. 

Lerines  a temporary  data  set  con*-aininq  those 
data  records  qualified  ty  U'JTP  in  scutce  direct 
mcd--'. 

KDY  Defines  a *-emporary  data  set  containing  the  sort 

Keys  generated  by  Q'lir  for  those  data  records 
which  gualifiod  in  settee  direct  no  do. 

Defines  work  areas  used  by  th?  internal 
tnio'igh  C')IP  sort  when  in  scurce  direct  medt. 


1 L I 1 ( 

11  A "A 

DA"  A ' IL2 
S A I." 

>ycp'  :r:r 
■;  r-- 


r>yi'r'"ri>  ADPNP  dump  pi  inter  cutput. 

st  ijD'  fPr  Defines  a printer  output  data  se*-  used  fct 

source  1 is*-  ings. 

dcq'ic-M:)  I'etinor.  a library  used  *-o  stcr**  source 

ma*-orial. 
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.icB  r i AT :cN 


I 

' TY.ir'  rt:rii.<=.'3  “-h®  C'BI  ? r:curc«^  irp'j*:,  "hi., 

j a*-,  f rr!';T;f.  miu'*.  be  ty  •■h‘=  ifsr  Cb 

; i£ruriri’’heba’’ch{,arti*-iot:.  isccl^’i.. 


/A'IIP.sySTN  bD  *. 

Ccfine.T  he  dd*-a  .j-t  cc rit-t i nib'j  bhe 
'1  lifi^i  by  PATP. 

d 1 T a roc:^: 

J refill 

uftir.f.;  The  P A.S  ?-q-»  re  ra  ic  1 dabi  .Ttt 
srr’-ec  (:o  n rs  [OT'1)  in*r  th®  Qb'T 

CO  r ♦ 1 1 1 ; j 
I 

•;  :a  ~ 

Cerir.'.e  *-^(r.noraty  data  set  used 

-s^dtificE  capability. 

t y ♦ r ‘ 

;JD!  X 

Thi.s  ♦■he  ♦'ndex  Ca^d  r;et. 
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cti- 
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.T^l>  ' h-r’AP  A""  IC  ». 


vloc iu£2:  >;r*iPLrp 

♦ ''r^'CA"  D=fir.  €'  -ho  u£f!:  for  vrA" 

f r-^ c»^s3  io 7. 

O^firfs  ♦•  VT  P'^  sysfe*^  lilirary. 

•lY  ■ ' '^  = tir<;s  d rrinf^t  cuttn^  dd*-a  3«*'. 


An-'':t:  iomp  prin*'‘»r  ci^put. 


■ A A " ' ' " 

^ n v , p b' 


r r»  ♦ ^ f 

r-^f  ir:  f^  .-: 
‘h-  : FT 


10  ir  loxcA  sequ  <?r*’ i a 1 ^a*:a 
3 ♦omporary  I'^A*'  dafa  s-^*  ccn* 


and  1 oq  ir  r,  ••  a * nio  n * ^i^rar7  during 


pr  ( 1C  r.‘ i al  filo  pr  oc^. -sr;  ir.  q. 

'"  D‘'''ir.  -h-^  r;^gu‘'>n*‘ial  da^a  s-at  to  fp  proces.s'-'d 

t y •i'".''rL:5  . 

■y  '•  \ v>,*  r->f:r«‘:'  -ho  irp'if  .“^ourcp  control  card  fcr 

f'~r''PII5.  ■*■!■  i fr  .o* a n>2r,t  ho  supplipl 

t y ♦ f user  a.o  //HTTIF.  t YS”  N D'l  *. 


jpr,  A-Tcr: 


(S  1 hro '1*  in  ^ Check) 

STTfLIB  r^fir.pn  th»  s ysr  ^-tn  lihriry. 

^yciirirjMD  AR^ND  I'lirp  rrin*'.»r  ciJtp;u*-. 

oYCP^  IN  T D-fin<rS  a prin^or  ruip'it  da*’!  s?**-. 

r^'fines  a prinh^r  cu*-{u»  iara 

jLIH  r-->fin‘'3  ucpr  ani  sys^-m  lihrari"??. 

SYRT'"  Cerir.'^;'  •’ho  innn*-  £;o'ircp  'I«ck  ar.  i nus* 

riir'pl  i'’i  hy  *'h«  ’is^r  i<-  //S IJBCH K, Y RI  N RP  ♦. 
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CIl-  ■? 


,inn  ATTON 


,::~r  j>,7n- 

r,?rpT  ’■'i 
'^ysp'  IN ' 
3 r3ii'’i"rp 
PA”  A'"  TL  '■ 


'■C1A33  (=11=  Claf^sif  ion  Chang'») 

C“fin“s  t hp  NIPS  ar,<;r  cataloq  for  VSAI 
{-rorpsr.ing. 

D«fireo  hP  NIPS  system  library, 
fpfirtj  a prin^-pr  output,  -lata  set. 

AR^ND  -luBp  printer  output. 

Defines  the  TSAp  data  file  to  be  processed. 


3 A '1  F ! T. 


'I  A -ru 


^Y31‘ 


ri'firss  * he  sequential  data  set  to  he  processed, 
"his  will  he  both  *■  h®  inpur  and  output  data  set 
for  sequential  processinq  on  disk. 

refines  the  output  sequential  data  file  that  is 
produced  when  tape  input  is  used, 

pcfir.es  the  CT.AS3  source  input  card.  This 
sti*erent  Bust  be  supplied  hy  the  user  as 
//ri  AF'’.  SYS  IN  or  ♦. 
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JCB  r rFr>AP  A^ICN 


Procedure : 
*S?  jIf'CA  " 

S YSPf'  I'l"" 
'^YoODn'*'’ 
^A-'A  ?II.F 
."'.AY.?  ILF 
T ‘^AnwC'^K 

S'fStJT2 

T? AMST 

SYSI  W 

SOU^CPPT 

SOfIRCLIB 


YOT^'^CAN  ("i^M  Scan) 

D = :in€a  ♦■h“  ii."er  rafale <■]  far  VlAY 

p ror»  ssin  j. 

Dfrinc. s a ptir.t^r  output  iata  oat. 

ABEND  dump  printer  cutput. 

Definfe;.  the  ’’'^AN  data  fila. 

rafir.Fo  t ha  .SA1  da+a  file. 

C«'fines  temporary  ISAN  data  set  if  a EAt 
data  file  is  input. 

D'^fines  partitioned  da^-a  s«  t containir.i 
members  to  te  scanned. 

Defines  the  data  set  for  output  trans- 
act ions . 

Defines  input  stream.  This  card  must  he 
supplied  by  th'=»  user  as  //'ITF.SYSTM  DD  ♦. 

Defines  a printer  nu*put  data  s“t. 

Defines  a library  usea  to  store  source 
m at  er ial. 

D'^fines  the  input  tc  the  DTSOUPC  utility. 
This  is  not  overridd'^n  if  a 1I.1T  operation 
is  d'^sired.  ^his  statement  is  overridden 
if  library  upda*<=*  is  tc  be  performed. 
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\ 


Proc^dur^?:  XSP  (In'iex  Specif  ica  t i c r) 

t ii’' sr  CA’’  Defines  the  NIPS  user  catalog  for  VSAi" 

processing. 

STPPI.IH  Defines  the  NIPS  system  library. 

N"WFIL'^  Defines  the  indexed  sequential  data  file  created 

during  an  FB  run. 

XTNP'’^  Defines  the  t ndex  Data  Set. 

snpTWKOi  Defines  the  S/160  Operating  System's  Sort 

through  work  data  sets. 

SORT  kK06 

SOPTIIR  Defines  the  s/'^60  Operating  Sys'-eni's  Sort 

Libra  r y . 

JYIO'!'^  Defines  a printer  ou'-put  data  set  for  Sort 

iressaces. 

SY.ip;- IN]'  Defines  a printor  output  data  set. 

soijRcpp""  Defines  a printor  output  data  set  for  Index 

Specification  messages. 

SYSn’'UMr’  AEiND  dump  printer  output. 

Sl.in  Defines  the  user  library  containing  subroutines/ 

tables . 

SAN'^ILE  refines  a se<iuential  data  file 

LIT:' A'^OL!'^  Defines  the  updated  sequential 

data  file. 

.-ANWORK  Defines  the  temporary  ISAM  data  set  containing 

the  FFT  during  sequential  file  processing  in 
Index  Speci f ica ti cr . 
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JOD  '■  r^EPAR  AT  TCN' 


Pr  ocf  (lurf : 
ffSTFPCAT 

STEPL  IB 
S YSPP  TNT 

SYSOP  BMP 

INDRrSAM 

INDEXCAt* 

DATA  F ILE 

SAMFI LF 


XTFDISK  (Index  Transfer  - Onlcad) 

Defin€E  the  NIPS  user  catalcq  for  VRAM 
p rocess  inq. 

Defines  the  Nl pe  system  library. 

Defines  the  printed  cutpu*-  cf  XTFDISK.  Coii'-iin.-'. 
any  diaqnostir  messaqes. 

AEEND  dump  printer  oueput. 

Defines  the  oije  pye  s-^cuential  Index  Data  Set. 

Defines  the  input,  direct  accec;^^  d isk -r  es  i dej, - 
Index  Data  Set. 

Defines  the  ISAN  data  file  correspond inq  to 
the  index  dat  a set  . 

Defines  the  sequential  access  data  file 
cerrespend i rg  tc  the  index  data  set. 
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JOL)  I’FEPAPATION 


l! 

!! 


Proci.(5  uro ; 
STEPI  IB 

oy-:'!''Uf;p 
I N'.ip  •’  fa:* 

y T V n ' y 


XTFTAPE  (In(i«>x  •”ran:>f€r  - Load) 

Cofines  the  NIPS  system  library. 

refines  the  printed  output  cf  XTP'^APr.  Contains 
any  diagnostic  messages. 

ABEND  dump  printer  output. 

Cetines  the  input,  sequential  V'^rsicn  cf  an 
Index  Data  Set. 

Defines  the  output,  J is)?-resid^nt , direct  access 
Ind»x  Data  Set. 
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JOD  ^FEDAPA-^ION 


# JT-TCAr 

3TZPL  IB 
D AIA^IL  F 

SA:'!F"LE 

SLTB 

SYSPI  IN? 
SOtlF.CLI  B 
SOUPCPPT 

SYSUDIITIP 

SYSO'IT 

SOPTLTD 

SOP'^WKOI 

thru 

SOPTWK04 

KANWK01 
Kf.DPF  T 

SYSIM 


XKA  (Keywor'l  Analysis) 

Cetiues  t h«  NIPS  us^r  catalog  for  VSAK 
processinij. 

Defines  the  vrPS  system  library. 

Defines  the  inil-^xed  sequential  data  file 
to  be  analy2e(l. 

Defines  the  sequen*:ial  data  files  to  be  araly7.'l. 

Defines  the  user  library  containing  sutrou«-in-‘ 
and/or  tables. 

Di^fines  a printer  output  data  set. 

Defines  a library  used  to  store  source  material. 

Defines  a printer  output  data  s‘^t  used  for 
source  1 ist ings. 

Defines  a printer  output  data  set  for  ADEMD 
dump  output. 

Defines  a printer  output  data  set  containing 
S/360  sort  messages. 

Defines  the  S/360  Operating  System  sort  library. 
Defines  the  work  data  sets  used  by  S/3f-C  sort. 


Defines  a temporary  work  data  set. 

Defines  a printer  output  data  set. 

Defines  the  input  user  control  statement  data 
set  for  U"'NDXKAN.  This  statement  must  te 
supplied  by  the  user  as  //XKA.SYSIV  DD  ♦. 
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• Procod  ure  : 

XOTODF 

flTFri  tc 

Cofinps  t ho  NIPS  system  librar 

y. 

f,  y'^p  'j'!»'P 

refines  a printer  citput  data 

se  t 

for  ABEND. 

r.NAP  'Hn-” 

Defines  a printer  output  data 

se  t 

for  debug. 

soup  T 

Defines  a printer  output  data 
listi nqs. 

for  source 

OL'PP'’  T 

Defines  a printer  cutput 
d iagnost ics  . 

d at  a 

set  for 

SYSPMPT 

Defines  a printer  output  data 

SLIP 

Defines  the  library  where  the 
format  will  be  stored. 

user  compiled 

ionp  i.  11  3 

Defines  a library  used  to 
ma^  erial. 

s’’ore  source 
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j 
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PE2C£slure : 

STZPLIB 

SLIb 

KMDWK  Cl 
thru 
KMDKKOU 


SYSOUT 

SYS?’:  Ijj7> 

SORTL IB 

SOFTW  K01 
th  r u 

SOPTWK06 

SYSdDOMP 

SYSIM 


UTNDX  RUD 

n^ofiues  t hp  NTPS  System  Library. 
Defines  t hp  user  lifctaty  cont,^ininq 
Defines  UTND''KMD  work  .fata  sets. 

Defines  message  and  display  device, 
Scr*"  message  outpu"  device. 

Printer  cutpiit  device. 

S/360  OS  Sor*  Library. 

Scrt  wcrk  data  sets. 

ABEND  dump  device. 

SYS  IN  device. 


t a 1 1 >7  s . 


•JTNPXKtlD. 
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NIPS  360  FFS 


PKOCEOURES 


I 


//XOPPLIB  PkOC  A=A  ,ilS/F  1LE  = , 

//  CL=', •,CL1=',*,DFN=,ISAM='0UPMY.FILE', 

//  jailLIR=*rFS.jnBL  IH*  ,LAB  = SL,RCN  = 60K, 

//  PTFjnRL  = *PTF.JOnLIB' , 

//  SAM=*UUMMY.FILE • f STG=NI PW,TRCH=, 

//  U1  SAM  = •(  23  14,P)  • ,USAM=*  ( TAPF.Of  f OFFER)  • , 

//  VISAM=,VSAM= 

//♦ 

//♦  CHARLFS  W.  HICKISCH  MAJORtUSA  PROJ  C0DE=763N1PS  BRANCH  431 
//♦  OATE=MARCH  1, IS74 
//♦ 

//UTDMP  EXEC  PCP=UTDMPLI0,REG10N=eRGN 
//STEPLI8  00  DSN=CPTFjnDL  ,OISP  = SHR 
//  00  DSN=CjnBLIB,OISP=SHR 

//SYSPRINF  00  SYSOUT  = ( CA  , eCL ) 

//SYSUDUMP  00  SYSOUT=(CA, £CL1 ) 

//DATAFILE  00  DSNAME  = £I SAM,UNIT  = CUI SAM t VCLUME  = C V 1 S AM , 0 I SP  = SHR 
//ISAMWORK  DO  UNn  = tSTG,DCB  = CSnRG=I  S.SPACE=  (CYL  , ( 10)  ) 

//SAMFILE  00  DSNAME  = GSAM.S, UNIT  = euSAMi VOLUME  = CVSAM,OI SP=(  SHR,  KEEP) , 
//  LABEL  = ( ,&L AB)  ,0C8=( RECFM  = V8, LRECL= 1000 , OL KS I 2 E = CBSZ F 1 1 E 

//  TRTCH=CTRCH,OEN=COEN) 


00000  I 00 

00O002OO 
00000  100 
00000400 
00000400 
00000600 

00000  TOO 
OOOOOHOO 

oooooooo 

00001000 

00001100 

00001200 

00001  100 
00001400 
00001400 
00001600 
00001700 
0000  moo 

COOOOIOOO 

00002000 

00002100 


* 


r 


NIPS  ^6C  ff  S 


PPOCEOUPFS 


//xrn  pptic 
//  * 

// 


MJXBUrN»2.MJ<SP  = 6,  HI  KSI  /t  • 


5B0,B=B. 

MODiruo  ijfc  76  Pir  v.nr,c  vsap  a37'>8 

vsr,Ai  = >nup“Y.FiLf.  •,vsnsN='nu*'PY.FiLfc'tr<EwvsH»='rL''My.fiLE’t 
A3798 

RSZF  11  E ^ . BSZNtwr-:- , 

Cl  = • , • .r.i  I = ’ , • ,r.i  2 = ' . • ,r.Yi  rFL=i  ,nEN=, 
[pnPT=A3E.GFrj=t'DUP.MY,  < , 

INOf  Y^l  , ISAMs'OUWYY.r  ILL*  , 

INXSP-1  , JIlf'L  Ifl=  ’Ff  S.  JCP.l  1 11*  , JCBPAC  = ' FFS.  JCPMACPn'  , 

I Ai)=  SI  . L!  .F  1 1 E • , I nu  :*DU.«MY.r  II  F • , 

PC  TSP  = S,  NRPRLK  ^200invri.C«  - 1 , PP  I Pr=5,PGK  = SeK, 

PTf  jmu  - ■ PTF.  jiiRL  Hi*  ,p  r f jra*<  = • ptf.  jorpacpc  . 

SAV='  JU'IMY.F  II  t • , SAf'CUT  = 'r;UPMY  , • , SO  1 SP  = SPP  , SG«  T SP  = 1 0 , 
SnUPCL=:  • DUMMY.  F n.f  ■ , STG^M  PW,  roi  SP  = MrG,  1RANS='  r.srp  ANS*  , 
TPANSP  = 2()J,TKf)UFN0=A,  T k(.  H=  , U I 5 A P- • (231A,P)  ' , 

Ul  IU=?3I6,GI  101  = 231  A ,USAP=r' » TAPF9,  ,f)EFFP  , 

USfUJPCL=2  UA,UrPANS  = NIPk,VlNDFX='KEF  = *.CATArn  t'  , 

VISA»  = ,VMR=,VLim  = ,vnYFLrM  = 'PFr=».nATAFItE*, 
VPPIPr=*«FF  = ».r)ATAFILt'*  , VSAP=,  VSPMCT=  ,VSPOUT  = ,VSOUPCL  = , 
VTP ANS  = iXO  I SP  = SHR, XI NOCX='nUPMY. FIl E • , 

XUNIT=231A ,XYnL= 


//* 

// 

/ 7 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//* 

//» 

//* 

//(".  FXFC  P&V  = rP,  «FG  ICN  = £.?GM 

//STIPCAT  UD  f;SN=f.VSCA  r ,DISP  = SHP 
//5.Tf  PI  IB  DO  DSN=r,PTFJOBL  ,OISP  = SMP 
//  DO  »SN-t.)or!i,iB,r)iSP  = $pp 

//f'  MAT  DO  SYSPUT  = I SA.f.CL) 
//SYSUUr  1)1)  SYSOUT  = ( CA  ,ccu 
//SY'.I  1ST  DO  SYSOUT=(tA,f.Cl  1 


CDAPLIS  W.  UICKISCH 
I)AfI=MAKCll  1,  197A 


MAJOR, USA  PPOJ  C0DE=763NIPS  BPANCH=A31 


//Sf’UkGPkT 
//SY'.U')  JMP 
//SYSPT INT 
//  VSMF  11. 1 
//Ni KVSU 
//OATAf  II  E 
//Nf  WF  ILF. 

// 

// 

//  l)f) 

// 

It 

//  DO 

// 

// 

Ilf MCHMM 
//I  MI  LUO 
//f  MIHANS 
//FMI  ABtl  S 

//f  •'(  M 
//I  -If  Mr  ILI 
//I  Ml  I Tf  I L 
//SYSLIB  UD 

//  on 

It 


DO  SYSf’UT  = ( f.A  , SCI. ) 

DO  SYSOUT  = ( f.A  , tCI  1 ) 

DO  SYSOUT=(  r.A,  tfL2) 

DO  DSN=f.  YSOSNfOI  SP  = SHP 
DO  DSN=f.NF  rtVSM.Dl  SP  = SHR 
OD  0SNAMr=7.I  SAM.UNI  T = SUI  S A M , VCL U^E  = E V I S A M , D I S P = 


SHP 


DO  &Grri.oco=  (DsnPG  = i s,r.Yi.nrL  = (.CYLCrL  ,plksi7E=  caszNrwF  i , 
DI SP=( .KEFP.OELETf  ) , SPACE  = (CYL  , tINOFX)  , 

OSNAMF=C  I SAM.  A ( INOI,  X I ,UM  T = CUI  SAP,  VOL  U«  E = t V I N DE  X 
Cr,EM.OCB  = *.NEwF  ILE  , SPACE  = (C.  YL  , tPRI  ME  ) , 

OSNAMF  = f.  I SAM.AI  PRIMFI  ,UMT=tUlSAP,VCLUME=CVPRIHC, 
DISP=< .KFEP.nELFTF) 

tCEN.DCB^^.AEWF lL£,SPACF  = (CYL,tCVFLCh)  , 

DSNAM£--^t  ISAM.AICVFLOW),UNIT  = £Ul  S AM , VOLUME  = C VC  VFL  Ow , 
ri SP=( , KEEP  , DEI  ETC) 

00  UNI  T = (.STr,,  SPACE*!  TRK,  < 1 , 1 ) ) 

DO  UNllrtSTG, SPACE *irVL,<  tPCTSP,?!) 

00  UNI TitSTO, SPACE' (CYL , (CAUXSP, 51 ) ,OCB*BUFNC*tTR BUENO 
on  UN  I T*f.STG,  SPACC'ICYL,  ( 1,1)1 
00  UN  I I'F.STG,  SPACE*  ( TRK,  (2  0,5)  I 
00  UNI  I*f.STG,  SPACE*  ( TPK  , ( 20, 5)  ) 

DO  UNI  Trf.STG,  5 07.0*=*  I TRK  , ( 20,5)  ) 

OSN*(.PTI  JUiIM,  0 I SP*ShR 
DSN^t jnBMAC,OISP*SHB 
UU  CSNAME*SYS  l.MACLIB.DIYco^f*’’ 


00000) 00 
000001  1 •. 
00000120 
000001 50 
XOOUOJ205 
00000300 
OOOOOAOO 
O00CO500 

oooootoo 

X00000700 
OOOCOBOO 
OOOOOOOO 
OOCOl OOP 
OOOCl ICO 
0000120P 
00001300 
00001 AOO 
00001500 
00001600 
00301700 
00001 «00 
00001900 
00002000 
00002100 
0000220. 
O0O023S 
00002310 
00002^00 
00002500 
OOOC26O0 
00002700 
OOC02BOO 
00002900 
00003000 
000031  f.- 
000031  1.) 
00003120 
000C32C j 
X000035C  0 
X00P03A0C 
00003500 
X00003600 
X00003700 
00003500 
X00003900 
xooooAOon 
OOOOAl 00 
O0O0A2OO 
O0OOA3O0 
oonoAAoo 

00006500 
00006600 
00006/00 
OOOOABOO 
00006M00 
00005000 
000051  JO 
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//FPI.FIN  DL)  UM  I T = CSTG,  SPACF  = ( TPK,  ( 25,5)  ) 

//SYSLMOLt  no  UM  I T=  f."  T G , SP  AC  E * I C Y L ,<A,l,10)),LCft  = SYSl.LIMKIIB, 

//  LAIJFL  = F)CPm  = 66  366 

//I.  “I  SPEC  Of)  CM  I 1 = 6STC.,  SPACF  = ( TP  K , ( 20, 5)  ) 

//SfiPTLin  no  f)SMAMr  = SY ‘>1 . sopTL  in,o I sp  = snp 

//S'Ur  IN  01)  Uf4 1 I-f.STG  , SPACF  = ( TPK  , I CTP  AN5P,  150)  ) , DCB  = QU  F MC  = T.  T P DDF  MU 
//SOP  TWKOl  on  SPACf  =ICYL  , (f.SOPTSP)  ,,CCNTIG),DMT=((,STr:,SFP  = SfiPTIN) 
//SD?T-fK02  OC  SPACr  = (CYI  , (tSCRTSP)  , .CCNTIG)  , 

//  UNI  T=(r.STG,SFP=S0PT«K01  ) ,SFP  = SrRTWK01 

//sf)pTwK03  Of)  SPACf  =(  CYC  ,( csriPTSP ),  ,ccf.r  ic) , 

//  UNI  T=f  f.  STG  , SF.P  = SflPTWK02  ) , SI  f>=  S CP T W K02 

//SOPIrtKOA  0!)  SPAf.r=ICYL  , (f.SOPTSP)  ,,CnNTIG)  , 

//  UM  I T=  ) tSTG  ,SEP  = ( SCR  ThKOl  , SC P T V,K0 3 ) ) , 

//  SE  P=(  SfiR  T wKOl  ,Sr.RT  WK03) 

//SOPTWKOS  no  SPACf =( CYL  ,( CSOPTSP)  . .CCNTIG)  , 

//  UMI  T = ( f.  STG  , SEP=  ( SCR  TWK02,SCP  T.(KCA)  ) , 

//  SEP  = ( SnKTWK02,  SOP.TPKOA  ) 

//Sf)P.r«K06  DO  SPACF  = ( CYL  , (f.  SURTSP)  , ,CCNT  IG  ) , 


//TAPE IM 
//TAPEOUT 

// 


//  UNITnf.STG,SEP=(SCRT»lK01  , SCR  T WKO  3 , SOP  T WKO  5 ) ) , 

//  Sf  P= ( SOPTWKOl , SCRTWKC3 , SOPTPK05) 

//SORT  OUT  Of)  01  SP  = (OL0,  PASS)  ,OSMAHf  = *.SrPTI  N,  VOL  UPF  = P E F = * . SOR  T I N , 

//  r)Cf)  = ( LRECL  = I500,8LKSI/E=150A,Pf  CFM*Vl),BUFN0=2) 

//FMI.EFILE  Of)  DSNAME  = *.SCRTpKOA,vnLUMF  = PEF  = *.SCRrwKOA,CISP=<ni  G.PASS) 
//F'^MACRO  Of)  OSNAP!E  = *.  SOP  T W K 05  , VOL  DM  E = PE  F = ♦ . SCR  T W K05  , D 1 S P^  ( Cl  0,  PAS'.) 
//FMOUTMAC  on  05NAPE  = *-  S CP T W K 0 6 , VCL UM E = R E F = ♦ . SCR  T rtK 06  ,0  I SP= ( Cl  0 , PA SS ) 
//TAPE  I M DO  OSNAME  = *.SCRTl A,vnLU‘'E=PFF  = *.SCPTIM,OISP=(CI  n,PASS) 
//TAPEOUT  00  CSNAWE=* . SCPT I N , VOLUME =RE F = * . SCR T I N . 0 I S F= ( OL 0 , P A SS ) , 

//  r)CB=(  LPECL=1500,BLKS  I/F  = l 50A,PECFM  = VB) 

//RECSIM  00  DSMAMf =».FMFLtD, VCLUME=PEF=*.FMrLUD,OISP=(CLD,PASS) 
//RECSnUT  DO  OS  NAME=*.  RECSIM,  VOL  UME=RFFi=*.RECSIN,DISP*  (Cl  0,  P.  SS)  , 

//  DCB=( LPECL  = 1000,BLKSI/E  = 100A  ,RECFM  = VB  ) 

//RFCSWKOl  00  nSMAME  = *. SOP TWKOl, VOL UME=PEF  = *.SCRT WKOl ,0  I SP=(CLD, PASS) 
//RECSWK02  00  DSMAME=*.SnRTWK02,  VCLU-'‘E=PCF  = ♦ . SCPT  02  , C I SP=  ( OL  0 , P A S S ) 
//RECSWK03  00  CSNAME  = * • SORT wKO 3, VOLUME =PEF  = », SCPT WK03, Cl SP  = (01  O.PASS  ) 
//RECSWKOA  Of)  DSMAME  = *-  SCRTWKOA,  VOL  UME  = REF=  ♦.SCPT  WKOA  ,01  SP'  (CLf),  PASS) 
//RF.CSWKOS  DO  OSMAME  =♦-  S0RTwK05,  VOLUME  =RE  F = ♦.  SORT  WK05  , D I SP=  ( OLO  , PA  S S ) 
//RECSWK06  00  DSNAMF  = *.S0PTWK06,V0LUME  = PEF  = ».SCRTWK06,DISP=<Cl  t),PASS) 
//TRAMS  00  DUMMY, OlSP*OLU,OCB  = lEPCPI  = (.ERnPT,eufNO«CTPBUrMO) 
//FMSETTBL  00  UN  I T = C STG , SPACE* ( TP K , ( 1 , 1 ) ) 

//FMAUXOP  DO  OSM=*.FMTRANS, V0LUME=REF=*.FPTRANS,DI SP* (CLD,PASS) , 

//  DC8= ( LR  CCL  = 1000, 8LKS12E*100A ,BUFNn  = tAUXeUFN) 

//PUNCH  DO  SYSOUT=CB,CCn=OLFNO*fcAUXBUFN 

//AUXl  00  dummy,  OCR*  (P  ECFP  = VB,  BLKSI/F  = 100''»,LRECL=>1000,  BUFNO=CAUXBUFN) 
//AUX2  00  DUMMY,  OCR*  ( R EC  F R *VB  , RL  K S I / E * 1 OOA  , LR  ECL  * 1 000 , BUFNO=  (iAUXRUr  N ) 
//AUX3  DO  DUNMY,DC0=(RECF  M = VB,0LKSI /E  = 100A, LRFCL=1000, BCFNO= t AU XBUF N ) 
//AUXA  DO  DUMMY,0C0=  (PECFM  = VB,  RLKSl/C  = lOOA,  IRECL=1000,  BCF NO*  F. AUXOUF  N ) 
//AUX5  00  0UMMY,DCD»(P  ECFM*VB, BLKSI 2E  = 100A  ,LRECL*1000,RUFNO=(.AUXRUFN) 
//FMTAUX  DO  UNI T=£STG, SPACE»( TRK ,( 10,5) ) ,DCU*BUFNC=(;aUXOUFN 
//SL IB  DO  DSNAME=*.SYSLMCn,OISP=(CLO,PASS) , VOLUME* PE F»* . SYSLMOO 

//  DO  OSNAME*«.L  IB.L,UNIT*tlJLIB,VOLUME*CVL  IB,CISP  = SHR 
//  DO  DSNAME*tL IRl .L ,UN  IT*tUL IRl ,VOLUME*CVL IBl ,DI SP=SHR 
//  DO  CSNAMf *CJORL IB,DISP*SMR 

//SnURCLIB  DD  DISP*tSOI  SP,OSN*CSOURCL.L,VCL*CVSCU.RCL,UM  T*(:US0URCL 
//DMMACS  00  UNI T*CSTC, SPACE=(CYL , (5 , 1) ) 

//CENFILE  00  UNI  t.,f.STG,SPACE»(CYL, (3,1)1 
//LITFILE  DD  UN  I T*CSTC,SPACE*(CYL , ( 3, 1 I ) 

//FDITFILE  00  UNII*tSTG,SPACE*(CYL,l3,nS  ...  . 


0000520') 
X00005 )00 
00005600 
(KJOOSSC'j 
0001)5601 

00005  TO  I 
0000500 ) 

X000C5'/i)O 
0000 6000 
XOODOA I 00 

00006  ^O.J 
X00006  100 
XO0OC66OI. 

0000650  I 
X00006505 
X00006  I'i  i 
00006P.00 
X0000600I) 
XOOOO  TOO', 

00007  1 O') 
*00007200 

0000  r 30 ) 
0000  TAOO 
00007500 
0000/600 
0000/  /O') 
♦ O0007HO') 

0000  /oc.) 
00001)00  . 
xoooci) ) no 
00000200 
nOOOB  300 
0 JO0B6OO 
ODDUfJ50.) 
OOOOR600 
0000'170l) 

oooofifino 
OOCCBOO ) 

oooooooo 
00000100 
00000200 
00000  300 
OOOOOAOO 
00000500 
00000600 
00000/0') 
00000800 
OOOOOOOO 
00010000 
OOOlOlOO 
00010200 
00010300 
OOOIOAOO 
00010500 
00010600 
00010700 
OOOIOHOO 
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//FMNFLUn  DO  UNn  = tSTG,  SPACr  = (CYL  f 1 5f  U I 00010900 

//FMTfTILE  DO  UN  I T = flSTGt  SPACL=  ( TRK,  ( 5,  1)  ) 0001  1000 

//FMAiriLE  DO  UNI 7 = £STG.SPACE= (T«K, (5, 1) ) 00011100 

//FMSODANO  DO  D 1 SP  = SHR  , 0 SN  AM  E=  f.  I S AM  . C , VOLUPE  = REF  = ♦ . S T E PL  I 8 0001  1200 

//Nt  LLRR  DO  DSNAME  = 'l-.SORTWKOA,  VnLUME=RtF  = *.  SCRTWKOA  ,D1SP=(  MOO,  PASS)  0001  1300 
//NELMACS  no  DSNAME=*.SCRTWK03, VOLUME=REF=*. SORTWK03,OISP=(CI.O,PASS)  0001 lAOO 
//ASSEMIN  DO  nSNAME  = *.FMLlTFIL,VCLUME  = REF  = *.FMLITFIL  ,niSP=(CLO,PASS)  0001  1500 
//  DO  DSNAME=*.SrRTv>KO6,V0LUME=REF=*. SURTwK06,0ISP=(nLD,PASS)  00011500 

//ISAMwORK  DO  UNI  T = GSTG,DCn=OSCP.G=I  S,  SPACE=(CYL,  ( 10)  ) 0001  1 700 

//SAMFILE  DO  D SNAMF  = £SAM . S , UN  1 T = CUSAM , VOL UME  = C VSAM , D I S F= ( SHR , KEEP ) , XOOOllROO 
//  LA8EL  = 1 ,£L AB) , DCB  = (KECFH  = VH, LRECL= 1000 , G LKS 1 Z E = £ 0SZ F IL F , XOOO 1 1 900 

//  TRTCU=£TRCH,D£N=£DEN)  00012000 

//FMSAMOUT  DD  £S AMOUT . DC e= 1 R E CF M = VG , L PECL = lOOC , BLK S I Z E= £B5 ZNE WF , X00012100 

//  DEN=£OEN,TPTCU=£TRCH) ,D1SP=(NEW,KEEP) , 00012200 

//  LARrL  = ( ,£LAB) , 00012300 

//  UNI T=£USAM  , VOLUME  = ( PRl VATE, RETA 1N,£VSMCUT)  OO012A00 

//FMNDAFA  DO  £S AMDUT . DC R = FMSA MOLT , 0 I SP= ( , K F EP ) , L AS E L= ( , £ L AB ) , X00012500 

//  UNI  T=£USAM,VOLUk'E  = ( PRl  VATE, RETA  IN,  CVSMMCT  1 00012600 

//STAT  DD  nSN=*.FMCM,VOL=REF=*.FMCM,DISP=(OLD,PASS)  00012700 

//IP.ANST  DD  DSN=£TRANS, VOL=£VTRANS, UN1T=GLTR ANS,DI SP=£TCISP,  00012800 

//  SPACE=(TRK , 1 ) 00012900 

//INDEXPRT  DD  SYSOLT= ( CA , GCL  ) 00013000 

//IXTRANS  DO  D1SP=INEW, PASS) , UNI T=£STG,SPACE=(CYL ,( £1NXSP, 1 ) ) 00013100 

//XlfJDFX  DD  DSN=£XIN0EX.X,D1SP  = (£X0ISP,KEEP)  ,UNIT=CXUNIT,VOL  = £XVOL,  00013200 

//  DCB=(8LKS1ZE=£RLKSIZE,RECFM=F,KEYLEN=A,0SCRG=DA) , X00013300 

//  SPAC£=(£BLKSIZE,£NBRRLK)  00013AC0 


NIPS  360  FPS 


PROCfUURES 


//Xf  P 
I/O 
// 

//* 

// 


PP.DC 

MODIFiro 

VSCAI 

A3/93 


//♦  CHARLES  li 
//♦  OATE=MAR 
1 1* 

//ER  EXEC 

//STfPCAT  DD 
//STEPLIB  00 
//  DD 

//SYSLIST  DD 
//SYSODT  DD  SY 
//SYSUOUMP  00 
//SYSPRINT  tjD 
//SYSPUNCH  DD 
//CLDFILE  DD 
//VSHFILE  DO 
//OLDFILE  DD 
//DATAFILE  DD 
//SAMFILE  00 
// 

// 

//TDDRCDS  DO 
//PDflLRCOS  DD 
//FRVSNA  DO 
//FRVSNB  DO 
//FRCENCO  DD 
//SnPTLIB  DC 
//FMCDMM  DO 
//FHFLDO  DO 
//FMTRANS  00 
//FMLABELS  DD 
//FMCM  DO 

//FMCRFILE  00 
//FMLITriL  DO 
//FMLEFILE  DD 
//FMMACKD  no 
//FMDUTHAC  DD 

//syslib  no 

//  DO 


A=A,AUXSP=6,B=B,BLKSIZE=56C,RS2FILE=|BS/NEWF=, 

DfC  76  RTF  wHCC  VSAP  AJ790 

= 'OU»'MY.F  IL  E'  , VSDSN  = 'DURRY.F  I Lf  • , V SCI.  DF  = • LUMM  y . F IL  I • , 

CL  = * , '.CI  ! = *, • ,CL2=' ,•  . 

DEN=, INXSP  = 1,I SAM='OUMRY.FILE'  , ■ 

JOBL 1D= ' FFS.JDRL I B* I JOBRAC  = • FF S- JOBM ACR C ' , 

LAri=  SI  , l,  Ib=«  DUMMY.F  I LF  • , L I R I = ' DUKM  Y . F ILE  • , 

MC  TSP  = 6.NFrFFT= ‘DURRY.F I LE • , NBRBLK  =?00, 

NEWUSAH  = ‘ ( TAPE9, .DEFER )•  , 

PTF>jnRL  = ' PTF.JDBL  IB*  ,PrFJOnM='PTF.  JCRRACRC  , 

RCN=  lOOK,  SAR=:'  OUMMY.F  I L E * . SCR  T S P = 1 0 , STG=  N I PR  , 

TDISP  = HOO  , TPANS=*  CSTRANS*  , TR  ANSP=2  00  , TRAM  YP  = I SA**, 
TPCH^.UFi  T = * ( ?3  14  ,P) * ,UI SAP=* (?31A ,P) * , 

UL  IU  = 2314,ULIB 1 = 2314, 

USAM=*(TAPE9,,0EFER)',LTRANS=NIPW,VFFT=,VISAM=, 

VL  IR=,V1  I R 1 = , VSAH=,  VSMMCT=  , VSHCL;T=  ,VSCRT  = *RrF  = «.  SORT  IN' 
VTP.ANS=,X0ISP=SHR,XINDFX='00E‘«Y.FILE'  , 

XUNIT  = 2314,XVr,L  = 

. HICK.1SCH  MAJOR, USA  PRCJ  CC0E=763NIPS  BPANCH=431 
CH  1,  1974 

P&M  = FR,REr,ICN  = CRGN 
OSN=tVSCAT ,DISP=SHR 
DSN=CPTF JDBL ,01 SP=SHR 
DSN=tJOCL IB,DISP=SHR 
SYSOUT=(  SA, tCL) 

SnUT=( SA.SCL) 

SYSnUT=( CA, tCLl ) 

SYS0UT={CA,£CL2) 

SYSnUT=f.R 

DSN=£VS010F,0ISP=SHR 
DSN  = (.VSDSN,DISP  = SHR 

DSNAME=£ I SAM.UNI T=eul SAM, VOLUME=eVI SAM.DI SP=SHR 
DSNAME  = £NEhFF  T,  UNI  T=f.UFFT  ,VOLUMF  = tVFFT,  DISP=SHR 
DSNAMF  = F.SAM.  S,  UM  T = CU  S AM , VOL  LME  = £ VS  A M , L A R E L = I ,£LAB)  , 
OCB=(RECFM=VB,LRECL=IOOC,8LKSIZE=£BS2FILE,DEN=£OEN, 
TRTCH=£TRCH» ,0  I SP= ( SHR , PASS ) 

UNI  1=£STr,,  SPACE*  1C YL  ,13,11) 

UNI  7 = £STG,SPACE  = (CYL,(3,  in 
UNIT*£STG,SPACE  = (CYL,(5,n  1 
UNn  = £STG,  SPACE*  (CYL  ,15,11) 

UNIT*CSTG,SPACE=(TRK,11 


0SNAME  = SYS1.SURTLIB,D1SP  = SIIR 


UNI  T=£STG, SPACE»(TRK, 
UNI T=£STG, SPACE=ICYL , 
UNIT*£STG,SPACE«ICYL. 
UNI  T«:£STG,SPACE  = (CYL, 
UN  I T*£STG, SPACC»( TRK, 
UNIT=£STG,SPACE*(TRK, 
UNI T«£STC, SPACE-I TRK, 
UNI T*£SIG, SPACE«ICYL , 
UNI  T«£SIC, SPACe  = <CVL, 
UNI  1 = £STG,SPACE»(CYL, 
0SN=£PTF JDBM.DI SP*SHR 
DSN*£jnBMAC,DI SP=SHR 


(1,11) 

( £MCTSP, 10)1 
< CAUXSP,5) 1 
(1,1)1 
( 20,51  ) 

( 20,51  1 
(20,5)1 

(5.2) 1 

(8.2)  ) 

(8,2)1 


xoocoDi  (;  j 
000001 1 0 
00000  I r ') 
00000  I 90 
X000{JI)20  ) 

00000  loo 

000004 00 
XOriOOOSOO 
00000600 
00900(0') 
OOOOOMOO 
00000900 
00001000 

00001  1 0 1 
00001209 

0000  1 lO'l 

, 00001499 

ocnc 1 99 ) 
00001 600 
OCOCl (CO 

00001  BOO 
00001900 
0000209  ) 
00002 1 00 
OOOC21 10 
00002200 
00002309 
00002400 
0000?9Oi> 
00002600 
00002700 
00002000 
00002810 
00002020 
00002900 
0000 1000 

conooBi CO 

X0000)200 
00003300 
00003400 
00003900 
00003600 
00003700 
00003800 
00003900 
00004000 
00004 100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
0000400(1 
00004900 
00009009 
00009100 


I 


NIPS  360  FFS 


PROCEDURES 


//  DO 

//t ML  FIN  DU 
//SYSLMIIl)  DO 
// 

//ILMLSKtC 
//SOIUIN 
//S'JRTWKOl 
//SURTWK02 
//SflRTWK03 
//SnRTWK06 
// 

//SORTWKOS 

// 

//Sl)KTWK06 
// 

//StlRTOUT 

// 

//TAPE  IN 
//lAPFOUT 
// 

//RFCSIN 
//KFCSnUT 

// 

//RECSWROl 
//Kl  CSWKO? 

//Rl CSWK03 
//K( CSbKOA 
//RECSWK06 
//HECSr.'K06 
//TRANS 
// VSAM 
//  ISAM 
//SAM 
// 

//ASSEMIN 
//f  MSETTUL 
//I MAUXOP 
// 

//SL  IB 
// 

// 

// 

//FMSAMOUT 
// 

// 

// 

//FMNOATA 
// 

//STAT  DO  OS 
//TRANST  00 
// 

//INOEXPRT  no 
//IX  TR  ANS  DO  0 
//X  INDEX  00  US 
// 

// 


on 

DO 

no 

no 

00 

OD 

DO 

00 

DO 

00 

00 

DO 

00 

DO 

DO 

00 

no 

DU 

DO 

on 

00 

DO 

DO 

00 

00 

00 

DO 

DO 

00 

DO 

00 


DO 


DSNAME=SYS  l.HACL  I I5,UISP  = SHR 

UNI  T=&STG,  SPACE  = ( TRK,(  <J5,5n 

UNn  = £STG,  SPACE  = (CYL  , (4,  I , ion  ,0CB  = £jCeL  I li  t 

LABEL=EXPDT=66366 

UNI  T=CSTG,SPACE=nRK,l20,5n 

UN  I T=£  STG,  SPACr  = ( TPK  , (&TRANSP,20n 

SPACE  = ( CYl  , (ESriRTSP)  ,,CONTIGJ,UMT=tSTG 

SPACE=(  CYL  ft  CSORTSP)  t .CDNT  IG)  ,UMT  = ( CSTGtSEP  = SORTWKOn 

SPACe  = (CYC  .(aSORTSPl , .CCNTJGI ,UMT=( &STC.SEP  = S0RTWK02) 

SPACE=(CYL  , (CSORTSP) , .CCNTIG)  , 

UN  IT=( CSTG  ,SEP= ( SORTWKOl t SnRTWK03)  1 
SPACE  = ( CYL  .USORTSP)  i.CCNTIG), 

UNI  T=(  tSTG  I £EP=  ( SOR  T V,K02  , SCRT  WKOA)  ) 

SPACE  = ( CYL  , (..SORTSP)  ..CONTIG)  , 
UNIT=(ESTC,SEPnSCRTWK03,SCRTRKC5n 

DSNAME  = * .SCRT  l:  31 NME =PEF =*. SDR T 1 N, D I S P= I OL 0 , P ASS ) t 

DCI3=(  LRECL  = 1500  , .KS  U E = I 504  , RECFM  = Ve  ) 

DSNAME=*. SURTIN, VUI UME=CVSCRT,DISP=(CLO,PASS) 

OSNAME=*. SCRT IN, VOLUME =£VSnRT ,01 SP=( OLD, PASS) , 

DCB  = ( LRECL=1500,BLKSWE=1504  ,RrCFM  = VB) 

OSNAME  = *.FRFLUD,  VOLUME  = REF  = <'.rMFLUD,  0 1 SP=  (OLD,  PASS) 
DSNAME=Y.RECSIN, VCLUME=REF=*.RECSIN,0ISP= (DLD,PASS) , 
OCB=( LRECL=1000,BLXS17E=1C04 ,RECFM=vn) 

OSNAMC=»- SORTWKOl  .VOLUME =PEF=*. SCRT WKO I ,0  I SP= ( OL D ,P ASS ) 
DSNAME  = *. SCRT WK02, VOLUME  = REF=*. SCRT WK02  ,0  I SP= (OLD, PASS ) 
DSNAMF  = *.  S0RTWK03 , VOL UM F = RE F = ♦ . SCRT WKO 3 , D I S P = ( CL 0 , PASS) 
OS N AME  = *. SCRT WK04 ,VCLUME  = R£E=*. SORT WK04  ,0 1 SP= ( CL 0 , P ASS ) 
DSNAME=*.SnRTHKC5, VCLUME=REF=*.SORTWK05,OISP=(CLO, PASS) 
DSN AME=<^.  SORT WK06  ,VI)LUMe  = REF  = ^.  S0RTWK06  ,niSP=(OLO,PASS) 
DDNAM,f,=  etraNT  YP 
DSN=£VSnLDE,OISP=SHR 

DSNAME=£ISAM,UNIT=£UlSAM,VOLUME=CVISAM,DISP=SHR 
OSNAMF  = £SAM.S,UNIT  = £USAM, VOL L ME  = CVS  AM , L A B E L= ( ,£LAB ) , 
0Cn=4.SAMF ILE,D1SP=( SHR.REFP) 

0SNAME=<'.  FMOUT  MAC  , VELUM  E = REF  = *.FMnUTM  AC,  C ISP=(  OLD,  PASS) 
UNI T=£STC, SPACE=(TRK,  (1,1)) 

DSNAME=*.FMTRANS,VOLUME=KEF=».FMTRANS,DISP=(OLD,PASS), 
DCB=( LRECL-IOOO ,BLK S I Z £ = 1004 ) 

DSNAMF=*. S YSLMCO.OI SP= (CLD.PASS) ,VOLUME=BEF=».SYSLMOO 
DSNAME  = £L I O.L, UM  T = £UL I R, VOLUME  = £VL IB.D I SP=SHR 
OSNAME=£L  ID1.L,UMT  = CUL1HI  , VCLUME  = £VL  IDl  ,CISP  = SHR 
DSNAME=CJOnL IB,DISP=SHR 

UNI T=£NEhUSAM,VOLUME=( PRIVATE.PETAIN.CVSMCUT) , 

LAnEL  = ( ,£LAB),nlSP=(NEW,KEEP), 

OCB*(RECFM=VB,LRECL=lOOO,BLKSlZE=£BSZNEWF,DEN=tDEN, 

TRTCH=£TRCH) 

UNIT=£NFKUSAM, VnLUME=(PRI VA TE, RETAIN, £ VS MMCT), 
lABEL^I ,£LAB) ,D ISP* ( .KEEP) , DCB=*.F MSAMOUT 
N=*.FMCM, V0L=REF=*.FMCM, 01 SP=( CLD.PASS) 

DSN  = £ TRANS, VOL* £ VTRANS , UN  I T = CUTR ANS , D I SP  = C TO  1 SP, 

SPACf=( TRK, I ) 

SYSnUT=(  r,A  ,£CL) 

ISP = (NEW, PASS ), UNI T=CSTG, SPACE* (CYL, (£ I NXSP, n ) 

N*£X  INOL  X.  X,niSP*(  r,xu  ISP  .KEEP)  ,UM  T*£  X UNIT  ,VUL  = CX  VOL, 
DCB=(BLKSI  ZC*£BI KSI ZC ,MECFM*F,KEYLEN  = 4,DS0RC=DA) , 

SPACE=(£BLKSIZF,CNBRBLKI . 
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00005200 
00005300 
C00005400 
00005500 
00005600 
00005700 
00005B00 
00005000 
OOOC60CO 
C00006100 
000C6200 
C000063C0 
00006400 
CO0OC650O 
000C66C0 
C000C6700 
OOOOOBOO 
000C6R00 
C00007000 
00007100 
000C7200 
COOOC730O 
00007400 
00007500 
00007600 
00007700 
00007000 
OOOOTOCO 
OOOOflOOO 
00008100 
000001 10 
00006200 
C00003300 
00006400 
OOOCB'iOO 
00003600 
00008700 
0000S800 
OOC06SOO 

cooosooo 

00009100 

00009200 

C00009300 

000094G0 

X00009500 

OO0C96OO 

C00009700 

00009800 

00009900 

OOOIOOOO 

00010100 

00010200 

00010300 

00010400 

X00010500 

00010600 
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NIPS  360  FPS 


PROCEDURES 


A=  A,CL  = ' , • tCl.l  = ' f • ,RSZNEWF  = 100^,  INDEX=1  , 
ISAM=M)UMMY.P11.F'  , 

JOHLIB='FFS.jnULie' , 

LI  B = * DUMMY.F  ILC 'f  1.101=' OUMMY.fi  LE*  , 

NDISP  = KEEPt  CVFUCW  = 1 ,PRlME=5,RGN  = 60K,SntSP=SHR, 
PTFJOtSL  = ' PIF.  JOflL  IB'  , 

S0RTSP=3,  SCURCL  = 'DUMMY.F1  LE  ' .STG=NIPv», 

Ul  SAM  = 231'.,UL10  = 2.31'.iULlBl  = 23l't,US0URCL  = 2314, 
VI SAM=, VL IB=, VL 101= ,VSOURCL= 


CHARLES  w.  HICKISCH 
DATE=MARCH  I,  1974 


MAJCR.USA  PRCJ  C0DE=763NIPS  BRANCH=431 


//XFS  PKOC 
// 

// 

// 

// 

// 

// 

// 

// 

//♦ 

//♦ 

//♦ 

//* 

//FS  EXEC  PGM=FSPHASE,REGICN=CRGN 

//STEPLIB  DD  DSN=tPTFJUBL ,DI SP=SHR 
//  DD  DSN=CjnBLie,DlSP=SHR 

//SLIB  DD  DSN=£LID.L  ,n  I SP=SHR,  VOLUME  = EVL  IB,UMT=GUL1  0 

//  DD  DSN=£LI61.L,UNIT=eULlBl,V0LUME=£VLlBlfDlSP=SHR 

//  DD  DSN=(;j()OLIB,DISP  = SHR 

//SOURCE I 0 DD  D ISP  = CSDI SP,DSN=CSOURCL. L, VCL  = CVSCURCL ,UNIT=CUSUUKCL 
//NEWFILE  DD  0 SN= £ I SAM. ( I NDE X ) ,UN I T = tU I SAM , VCLUME =CV I S AM , 

//  SPACE=ICYL  .CINOEXI  , DC B=  ( DSCRG=  I S , BL KS  1 7.E  = £BSZNEWF  ) , 

//  DISP=( .CNDISP, DELETE) 

//  DO  0SN=£1SAM.  ( PRIME  ) ,UNn=CUI  SAM,  VCLUMF=REF  = *.NEWF  ILE, 

//  SPACE=  (C  YL  ,£PRI  ME  ) , DCB  = ’t'.  NEWF  I L E , D 1 SP=  t ,£NDISP,DELl.TC) 

//  DD  DSN=£  I SAM.  ( OVFLOW  ) ,UNI  T = £UI  SAM,  Vr!LUM£  = REF  = <'.NEtjF  ILE  , 

//  SPACE  = (CYL ,eOVrLOW)  ,DCB=*. NEWFILE, D I SP= (, END  I SP , DELETE ) 

//SQRTLIB  DD  DSN= SY S I . SOR TL I B , D 1 SP= SHR 
//SORTIN  DD  UNIT=ESTG, SPACE={CYL, ( 1,1 ) ) , 

//  DCB=(RECFM=VB,8LKSIZE=1004,LRECL=1C00) 

//SDRTWKOl  DD  SPACE  = (CYL, ( E SORTS P) , ,CaNTIG) , UN  I T= ( E ST G , SEP= SORT  I N ) 
//SORTHK02  DO  SPACE  = (CYL , t E SORTS P) , ,CCNT IC) ,UN 1 T= t E STG , SEP= SORT WKO I ) , 
SEP  = SriRTWKO  1 

SPACE  = ( CYL , (ESORTSP) , ,CONT IG) , UM T= ( E STG , SEP= SORT WK02 ) , 
SEP=S0RTWK02 

SPACE  = (CYL, (ESORTSP) , ,CONTIG)  , 

UNIT= ( ESTG, SEP=( SORTWKOl  , S0RTWK03) ) , 

SEP =( SORT HKOl , SORT WK03) 

SPACE=( CYL , (ESORTSP) , ,CCNT I G) , 

UNI T=( ESTG, SEP=( SORTWKOZ ,S0RTWK04) ) , 
SEP=(S0RTHKC2,S0RTWK04) 

SPACE =( CYL, (ESORTSP) , ,C0NT1G) , 

UNI T=( ESTG,SEP=( SORTWKO 1 , SCR TWK03 , SORT WK05 ) ) , 

SEP=( SnRTHK01,SORTWK03, SCRTnKCS) 

UNI T= ESTG, SPACE= (CYL, (I , 1) » , 
DCB=(RECFM=VB,0LKSIZE=1004,LR£CL=1000) 

DUMMY 


DD 


DD 


DO 


DD 


// 

//S0RTWK03 
// 

//S0RTWK04 

// 

// 

//S0RTWK05 
// 

// 

//SORTWK06 
// 

// 

//SORTOUT 
// 

//SYSOUT  DD 
//SYSPRINT  DO  SYSOUT=(EA,ECL) 

//SYSUOUMP  DO  SYS0L'T=(EA,CCL1) 

//snuRCPRT  no  sysout=(a,ccl) 

//SYSUTl  DD  01 SP=( ,PASS) , OSN= I XSPO S , UM 1 = E STG , SPACE » ( TRK , ( 5 , 1) ) 
//FSSTEP2  EXEC  PCM= F S ABMOC ,CnND= ( 1 1 1 , Nfi , F S ) , RE GI ON=ERGN 
//STEPLIB  DO  OSN=EjnBLI6,OISP=SHR 
//SYSOUT  DD  SYSOUT=( EA,£CL) 

//SYSPRINT  DO  SYSOUT=(EA,CCL) 

//DELNEH  00  DSN AME»* . F S .NE WF ILE , UNI T*EUI S AM , VOLUME»REF-*.F S.NEWF 1 LE , 
//  01SP*(OLD, DELETE)  117  CH-3 


DD 


XOOOUDl OD 
X00000200 
00000300 
0000040(1 
OOOOOGOO 
OOOOOOOO 
00000700 
OOOOQMOO 
OOOOOOOO 
00001000 
00001 100 
00001200 
OCOOl 300 
00001400 
00001900 
00001600 
00001  100 
00001000 
00001900 
00002000 
*00002100 
XUOOOPPUO 
00002300 
*00002400 
OOOOP'iOO 
*00002600 
00002100 
OOOOPBOO 
*00002900 
0000.1000 
00003100 
♦ 0000  5200 
0000  3300 
*00003400 
0000  1900 
♦00003600 
*00003700 
00003(100 
♦00003900 
*00004000 
00004100 
♦00004200 
♦00004300 
00004400 
♦00004600 
00004600 
00004700 
00004HOO 
00004900 
OOOOSOOO 
00005100 
00005200 
00005300 
00005400 
00005500 
*00005600 
00005700 


NIPS  360  FFS 


PROCIDURES 


//XI srns  PRoc 
// 

// 

// 

// 

// 

// 

//♦ 

//<■ 

//* 

//* 


A = A ,fiSZF  ILr=,l<S/NEWF  = ,CC=,CL='  , • , C L 1 = • , • , OFN=  , 

I SAM=' DUMMY.fi  I E'  . J CUE  I 0 = ' F F S. JOBL I P ' ,LAB=SL.NDISP=KEFP, 
no  I SP=KEEP ,UL()SAM=' DUMMY.fi LE • , CLDVSAH=, 
usni SP  = KEEP  ,HCN  = 60K ,SAM= • DUMMY.F ILE ' , SeCNC=l , 
PTFJnRL=*PTF.JfiBL IB' , 

TRCH=,UISAM='(?314,P)'tLSAM= '(TAPE 9, .DEFER)', 

VI SAM=, VSAM= 


CIIARLFS  W.  HICKISCH 
l)ATF  = MARCH  1,  197^ 


MAJDR.USA  PRCJ  C0DE=763N1PS  DRANCH='i31 


'CCC 


//srpl  EXEC  PGM=UTBLDSAM,REGICN=tRGN,PARM= 

//SrEPLlB  DD  ()SN=CPTF  JOUL  ,DI  SP-SHR 

//  no  DSN=6JOBLIB,DISP=5HR 

//DATAFILE  00  DSN AME  = 6 I S A M , UM T = E L I S AM , VOLUM E = 6 V I S A M , 

//  ni SP= ( SHR ,EOD I SP  ,KFEP ) ,0CU=BUFNL  = 5 

//SAMF I LE  DO  DSN AME  = E OL 0 SAM . S , UN  I T= £ US A M , 0 I SP  = 1 SU R , C C SO  I S P ) , 

//  Vni =£CL0VSAM,DC8= (RECFM=VB,LRECL=1000,BLKSIZE=£RS/F ILE, 

//  DLN=£DrN,  TRTCH  = £TRCH  ,BUFNn  = I>)  ,LABEL=(tSEONO,ELAH) 

//SAMDUT  DD  OSN AME= £S A M . S , UN I T ^EU SA M , VCL UME = tVS AM , 0 1 SP= I , END] SP)  , 

//  DCH=(*.SAMFILE,BLKSIZE=£BSZNEWF),LABEL=(£SEQNO,ELAB) 

//SYSPRINT  DO  SYSOUT  = ( r.A,  £CL  ) 

//SYSUDUMP  DD  SYSOUT=l£A,  ECLH 


00000100 
00000200 
00000300 
OOOOOAOO 
00000500 
00000600 • 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
OOCOIAOD 
00001500 
00001600 
00001700 
00001800 
00001900 
OOCC20CO 
00002100 
00002200 
00002300 


NIPS  36C  FFS 


PROCEOURCS 


//XOP  PROC  A= A, B=B , nSZF I 
//  CL  = ' . • , CL  1 = ' , 

//  ISAy='DUMMY.F 

//  ^ join  IB='FF S.j 

//  IAU=SI , 

//  LIB=*DU'3'1Y.F1 

//  Lini)lSP  = SHR, 

//  PTF  JOUL  = ' IMF. 

//  PTF JOBM= • P IF. 

//  QDF=:*CCaOF  ILF 

//  RGN=100K, 

//  SAM='nUMMY.F  I 

//  sn  isp=sriR  , SOU, 

//  TOISP=MCD, TRA; 

//  Ul SAM=' (231A, 

//  ULIR=231A, LLI 

//  UOl)F  = NIPW,UQR 

//  USAM=' (TAPE9, 

//  UTRANS=NIPV,, 

//  VI SAM  = , VI  SAMI 

//  VL IB=, VLtBl=, 

//  vonr=,voRT=, 

//  VSAM=, VSAM1=, 

//  VSOur<CL  = ,VTRA 

//♦ 

//♦  CHARLES  H.  HICKISCH  HA 

//♦  OATE=MARCH  I,  197A 

//♦ 

//OP  EXEC  PGM=OP, RCGION=CPGN 
//STEPLIB  DD  nSN=CPTFJOOL, 

//  DD  0SN=tJ08L IB,D 

//DATAFILE  DO  CSN AME= L I S A P , 0 


A=A,B=B,nS/FILE=,BSZFILl=,BSZFIL2=i 

CL  = ' . • , CL  1 = ' , • ,CL2='  , • , 

I S AP='DUMMY.F IL  E',ISAM1  = ‘DUPPY.FILE'.I SAP2=»  DUPMY.F  IL( 
join  IB='FF  S.JOUL  I P*  , JOBPAC  = ' FFS.  JUBMACRC  , 

IAU=SI , 

L IB=*DU'3'1Y.F  1 LE  ' , LI  B 1 = • CUPP  Y . F 1 L E ’ ,L  I B2='  DUMPY-f  ILL  ' , 
LIBDISP=SHR, 

PTFJOUL  = '(MF. JOBLIB'  , 

PTF JOBM= • P TF. JOBPACRr • t 

QDF=:*CCaDFlLr',ODlSP  = PASS,QRT  = ' f.  CORTF  ILF  • , 

RGN=100K, 

SAM='nUMMY.F ILE • t S A P I = • DUMP Y . F I L E • , S A "2 = ' DUPP Y .F IL!  ' , 
SD  ISP=SHR , SnURCL=>DUPMY.F I LE • t S IG= M P W . 

TOISP=MCD, TRAN S=' CC TRANS ’ , 

UI SAM=' ( 23  lA  ,P  ) • , 

ULIR=231A,LLIR1=231A,ULIB2=2314, 

UODF=NIPW,UQRT=NI PP, 

USAM=' (TAP E9,, DEFER) • t USUURCL =2 3 14 , 

UTRANS=NIPV,, 

VI  SAM  = , VI SAH1  = , VI SAP2= , 

VL IB=, VLtBl=,VL \B2=, 
vonr=,voRT=, 

VSAM=, VSAM1=,VSAM2=, 

VSOur<CL  = ,VTRANS  = 


MAJOR, USA  PRCJ  CCDE  = 763NIPS  ERANCH=431 


//STEPLIB  DD  DSN=CPTFJOOL,OI SP=SHR 

//  DD  0SN=CJ08L IB,DISP=SHR 

//DATAFILE  DO  CSN AME= C I S A P , 0 1 SP= SHR , UN I T = tU I S A P , VOLUME = C VI S AM 
//DATAF  in  DD  DSN AME  = E I S AM  1 , D I SP= SHR , LM T = CUI S AP, VCL UME  = CV I S AM  1 
//0ATAF1L2  DO  DSN AME  = C I S AM2 , 0 1 SP  = SHR , UNI T = £U I S AP , VCLU»E  = CV I SAm2 
//SAMFILE  DD  DSN AME  = C S AM . S, D I SP  = SHR , UN  I T = CLSA P, VCLUME  = e VSAM, 

//  LABFL=( ,CLAB) , DCB =BLK S I Z E= CBS Z F 1 LE 

//SAME IL El  DO  DSN AME  = CSAM 1 . S, 0 1 SP  = SHR , UN  I T= CUSA P , VOLUPE  = CVS AM  1 , 

//  LAREL  = (,tLAB),DC8=BLKSUE=CBSZFILl 

//SAMFILE2  DD  DSNAME  = C SAM2. S , D I SP  = SHR  ,UM T = CU S AM , VCLUME  = CVS AM2 , 

//  LA8EL=( ,CL AB) , DCB=3LKS I ZE=CBSZF I L2 

//DLIB  DD  DSNAME  = CLIB.L,CISP  = CL  ieOISP,VOLUPE=eVLIB,UMT  = CULlB 

//TLIB  DD  0SNAKE=CLIBI.L,D1SP=SHR, VOLUME=eVLIBl,UNIT=CULIBl 

//SOURCPRT  DD  SYSOUT= ( CA , ECL ) 


//SOURCLI B 


D ISP  = CSDI  SP,DSN=CSOL'RCL.  L , VCL=  C VSCURCL  , UNI  T=  CUS  OURCL 


//SYSPRINT  DO  SYSnuT=l CA, CCD ,OCB=( LRECL=l33,BLKStZE=665) 

//SYSOUT  DD  SYSOUT=( CA, ECL ) 

//SVSUDUMP  DO  SYSOUT=<CA,CCD) 

//SYSUTl  DD  UNI T=CSTG, SPACE=(TRK, (200,20) I 
//SYSUT2  DO  UNI T=( CSTG, SEP=SYSUTl) , SPACE= (TRK,( 200,20) 1 
//SYSUT3  DO  UNIT=(CSTC,SEP=(SYSUT1,SYSUT2))  , SPACE= ( TRK  , < 200 , 20 ) ) 
//SYSPUNCH  DO  UNIT=CSTG,SPACE=(TRK, (50,10), 

//  DCB= (RECFM=F0,LRECL=80,BLKSIZE"400) 

//SYSLIB  DD  DSN=CPTFJO0M,OISP=SHR 

//  DD  OSN=CJOOMAC,DISP»SHR 

//SYSLMOO  DD  UN1T=CSTG,SPACE»)TRK,(50,25,5))  , CCB  = S YS  I .L  INKL I B, 

//  LABLL=RETPn«0000 

//SYSTPRT  DO  SYSnUT=(  CA,  CCL  ) , CCO- ( RFCF  PJ-F  B,  LRECL*  1 2 I , BLK  S I ZE  »605  ) 
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oonoo ) (ij 
01)01)0200 
, 00000  100 
0000040. ) 
00000900 
OOOOOAOo' 
00000  700 

00000  7)  '' 
0000072.' 
OOOOOlU)  ) 
000009 OJ 
00001 000 

00001  1 O') 
00001200 
00001  '00 
00001400 
0000  1 ‘>00 
00001600 
00001 700 
0000  1 f'OO 
00001 900 
0000200.) 
0000?  VOO 
000C22OO 
OOOO?  30  ) 
00002400 
00002500 
000026','0 

00002  700 
00002(109 
00002810 
00002900 
00003000 
0000  3100 

X00003200 

00003300 

X0000340n 

00003SOQ 

♦00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

00004500 

00004600 

00004700 

xoooo4noo 

00004900 

00005000 

00005010 

X00005100 

00005200 

00005300 


NIPS  360  FFS 


PRCCEDURES 


//nniWCF  no  uni  T = f.STG  , SPACE^I  TRK,  (2  , u ) ,DC0=(BLKSIZE  = AOO,LRECL  = 8O, 

//  RFCFK=FR) 

//OPSTSr  DU  LNI  T=f;STG,SPACr=  (TRK,  t 10,2)  ) 

//OPCPFATE  OD  UNI  T=f.STG,  SPACt=  ( TPK,  ( I , I)  ) 

//(IPCil’-’REC  00  UNI  T = t STG,  SPACE  = ( TRK,  ( 1 , 1 ) ) 

//IN'.rS  DU  UNI  T = f.STG,  SPACi;  = ( TRK  , ( bO.'j)  ) 

//l.LF  DO  UNI  T=CSTG,  SPACr=  ( TRK  , ( 1 0,5  » ) 

//LOT  00  UNIT=(lSTG,SPACr  = (rRK,(l0,5>) 

//ilTSTfi  DO  UNI  T = £STG,  SPACE=  t TRK  , ( 50, 5)  ) 

//NAN.IEF  00  CSN  AME  = *.  SYSUT  1 , VllLUME  = PEt  =*.  SYSUTl  ,01  SP=  (CLD,  PASS) 

//I  I TAB  no  CSNAMf  =*.SYSUT2, VnLUME  = PEF  = *.SYSUT2,I)ISP=(CLD,PASS) 

//ROTA!)  DO  OSNAME  =».SYSUT3,  VOL  UM  E = R E F = * . S YSUT  3 , 0 I S P = ( CLD , P AS  S ) 

//Cr,C  DU  LNI  T=£STG,  SPACr  = ( TRK  , ( I , 1)  ) 

//LKPTAn  00  LNI T=£STG, SPACE= ( TRK, < 8, 5) ) 

//OC.  TOY  DO  CSN\Mf  = <-.SYSrUNCH,  VOLUME  ^REF  = ».S  YSPUNCU,  01  SP=(  OLD,  PASS) 
//SUIITAU  00  UNI  I=t.STG,  SPACE  = ( TRK  , ( I , 1 ) ) 

//•(')•!  GOGO  00  OSrjAME  = *.  SYSLTI  , VOL  UME=  RE  F = » . SY  SUTl , 0 I SP=  ( CLO  , P AS  S ) 

//OPl  F YCK  00  OSNAME  =<-.  SYSUT2,  VOLUME  = REF  = *.  SYSUT2,0  I SP  = ( CLD,  PASS) 

//Ol’L  EXOIR  DO  CSN AME  = v . SY  SUT 3, VOLUME  = PEF  = *. SYSUT3 ,01 SP= (GLO, PASS) 
//OPLINE  00  SYSnUT=  I f.A  ,CCL2)  , DCB  = LRECL  = 133 
//cppuN'cu  00  SYsnuT  = f.n 

//SI  IB  no  nSNAMF=*. SYSLMCD, VOLUME  = REF  =♦. SYSLMOO,DI SP=(CLC,PASS) 

//  00  USNAMr  = *.OL  IB,DI SP=SHR, UNIT  = £UL  lB,VDLUME=CVLln 
//  on  OSNAMO*  .TL  IP,  01  SP  = SE‘R,  UNI  T = CCL  181  , VCLUME  = £.VLini 
//  on  OSNAME  = £L  I B2  - L , 0 I S P=  SH  R , LN  IT  = CUL  I B2  , VOLUME  = E.  VL  1 B 2 
//  00  OSN=CPTr J0BL,DISP=SOR 

//  00  OSNAMErCJORL  IP,UISP  = SHR 

//SYSA I N 00  DSNAME=».L ITSTR,V0LUME=REF=*.LITSTP,01SP=(CLC,PASS), 

//  DC B= ( RE CF M=FO,LRECL= 00, nLKSIZC=AOO,PUFNC =5) 

//  00  OSNAME=*.INSTS, VOLUME=kEF=*. INSTS,01SP=<CLD,PASS), 

//  DCn= (RECFM=FH, LRECL=80, 8LKSI Z E= 500 , OUF NC=5 ) 

//SYSl IN  no  OSNAMF=*.l CF , VOLUME=REF=*.LCF ,01 SP=(OLO ,PASS ) 

//SY'.TIN  DO  OSNAMF=^.LCT , VOLUM£=RFF=*. LCT,DI5P=tOLO .PASS) 

//LOAOR  DO  DSNAMC=*.SYSPLNC)t, VOLUME=REF=*.SYSPUNCH,DI SP=(OLO,PASS ) , 

//  DC  B=(  RECr-M  = Fn,LRECL  = 80,BlKSI  Z£  = 500) 

//OOFILE  DO  DSNAMF  = f.QOF,UNI  T = £ LOOP  , VOL  UME  = C VCCF  , 0 I S P=  ( SHR  , CCD  I SP,  K E CP  ) 
//ORTF  ILE  00  OSNAME  = CORT ,UNI T = CUQRT, VOLUME= CVCPT ,0  I SP= ( 5HR, CCOISP.KEEP ) 
//SEAT  no  OSN=».INSTS,VOL=RFF=*.INSTS,niSP= (OLD, PASS) 

//TKANST  DO  DSN  = CTRANS,VnL=CVTRANS,UNn  = CUIRANS, 

//  DISP=CI01SP,SPACE=(TRK,  1) 


*00005500 
000055':'' 
00005bOL 
00005700 
000058C 
OOO05ROO 
000060CO 
0000610C 
00006200 
00CC6  300 
0000650P 
00006500 
000()66('( 
oooo6''i;' 
0000601”. 
000069O 
00007000 
00007  I 00 
00007200 
000073C0 
00007500 
00007500 
00007600 
00007700 


00008000 
00008100 
00008200 
O00083C0 
OO0C85OO 
00008500 
X00C0fl600 
OC00.5  ' 
OOCOO'iOC 

oeooB  )oo 

OOCON'-.'O 
OOLOOl 
OO.DOP.'  . 
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NIPS  360  FPS  PROCEDURES 


//XHPEX 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//♦ 

//♦ 

//♦ 

//♦ 

//OP  EXEC 
//STEPLIB 
// 

//DATAFILE 

//DATAFILl 

//DATAFIL2 

//DLIB  OD 

//TLIB  DD 

//SOURCPRT 

//PRINTER 

//SYSOUT 

//SYSPR  INT 

//SYSUOUMP 

//OPLINE 

//OPIWCF 

// 

//OPCOMREC 

// 

//OPLGOGO 

// 

//OPLEXEX 

// 

//OPLEXOIR 

// 

//GPPUNCH 
//SLia  OD 


PKOC  A=A,B=R, 

CL  = ' , • ,Cl  ! = • , • ,CL2=*  , • , 

CMKCSP  = 0ELETE.CHKI0='C(;CHKI  D'  tCHKSP  = 0,CMKST  = NEH, 
ISAM='DU''1MY.F  IL  E'  , I S AM1  = > UUMRY.F  ILE  ' , I S A “2=  • DUMR  Y . F 1 1 ! 
JOBLl FF  S.JQBL  lU*  . 

L IB=  ' DUMRY  .FI  LF  • , LI  BI  = ' DUMMY.  F IL':*  , L I H2=  * DUMMY  . F 1 1 I ' , 
LinDISP=SHR, 

NkMDSP=UELETE, 

PTFJOBL  = *PTF.JOnLIB’  , 

ODF  = ' C60UF  ILE ’ I QDI SP^P ASS  .QRT=*  etQRTF ILF • . 

RGN=100K, 

STG  = NIP'«, 

TDISP  = MCD,TRANS  = '(;CTRANS'  , 

UCUK=NIPW, 

UI SAM=' ( 23  14  ,P ) • , 

UL I B=2314, UL Ifll =2314 ,ULIB2=23I 4 , 

UQDF  = NlPi>,LQRT  = NIPk«, 

UTRANS=NI PR, 

VISAM=,VISAM1=,VISAM2=, 

VL  IB=,VLIB1=,VLIB2=, 

VODF= , VORT=, 

VCHK=, VTRANS= 


CHARLES  R. 
DATE=HARCH 


HICKI  SCH 
1,  1974 


MAJOR, USA  PRCJ  C00E=763NIPS  BRANCH=431 


PGM=OP, REGION=eRGN 
DD 
DD 


DSN=CPTFJ03L ,D I SP=SHR 
DSN=CJ0BL IB,DISP=SHR 
DD  DSNAME=& I SAM, D I SP= SHR , UN  I T = £U  I S A M , VOLUME  = C V I S A M 
DD  DSNAME  = £IS AM1,DI SP=SHR, LNIT  = EUI SAM , VOLUME  = £VI  SAMI 
DD  DSNAME  = £ I SAH2,0I  SP  = SHR,  UNI  T = £L'I  S AM , VOL UME  = CV I S AM2 
DSNAME  = £L  IB.L ,01SP  = CL  IBDISP,VCLUME  = tVL IB,UN  I I = CUL IB 
DSNAME  = CL IBI .L  ,DISP=SHR , VQLUME  = CVLI B1 ,UNI T = CULIB1 
DO  SYSOUT=( GA, £CL ) 

OD  SYSOUT=( £A, £CL) 

SYSOUT=(£A,£CL) 

SYSOUT=( £A,£CL) 

SYSOUT=( £A , CCLl ) 

SYSOUT=( £A  ,£CL2) , DC B = LREC L= 133 


DD 

DO 

no 

DD 

DD 


UNI T=£STG,SPACE=ITRK, (2, 1)1 , DCB= I BL KS I ZE =400 , LRECL=00 , 
RECFM=FR) , DSNAME=£ChKID.A,OISP= t ,£NRMOSP,£CHKOSP) 

OD  UNI T = £STG,  SPACE  = (TRK, tl , 1) > , 

OISP=( ,£NRMOSP,£CHKDSP) ,OSNAME=£CHK I D.B 
DD  UNlT=£STG,SPACE=(TRK,(20,n), 

01SP=(  ,£NRMDSP  ,£CHKOSP)  ,OSNAMF;  = £CHKID.C 
DO  UNI T=(  £STG, SEP=OPLCOCO) , SPAC E • I T PK,  ( 20 , 1)  I , 

DI  SP»(  ,£NRMDSP,£CHKDSP) ,DSNAME  = CCHKI 0.0 
DD  UNIT  = ( £STG,  SEP=( CPLGOGO ,OPLEX EX ) I , SPACE = ( TPK , ( 20, 1) ) , 
DISP  = ( , ENRMDSP ,CCHKDSP » , DSNAME= CCHK I D. E 
OD  SYSOUT=£H 

DSNAME«*.DL  in,DI SP=SHR,UNIT  = CULI B, V0LUME«£VL  ID 


//  on  DSNAME=*.TL in,0I SP« SHR, UNI T=£UL IHl tVCLUME'CVLI Bl 
//  DO  0SNAME»£L IB2.I ,DI SP«SHR,UN IT«£LL IB2,VCIUME=CVL I B2 
//  OD  OSN»£PTF JCnL,OISP=SHR 
//  DO  DSNAMC=£Jl)liL  in,DISP»SHR 

//OOr ILE  DD  DSNAME=£UOF,UNIT=£U0DF, V0LUME«CV0DF,DI SP= I SHR , £001 SP , KE EP) 
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00000  I O 1 
uOiIOU.’O.i 

ooooo  no 

, 0000J40O 

oooooso  > _ 

0000061 

00000  FIR' 

000 00"0u 
000000 1 0 
OOOOOVOO 
0000 looo 
O 000 1 1 Oo 
OOCOI  .'O'' 
00001 ^O ) 
00001401 

00001  '.00 
0000  K.OO 
0000 1 FOO 
OOOOlBC'l 

00001 900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002'>0.,' 
00002600 
00002  FOO 
00002F 10 
00002800 
00002909 
00003000 
00003100 
00003200 
00003300 
00003400 
00003600 
000036CU 
00003700 
00003000 
♦00003900 
00004000 
X00004 loo 
00004200 
X0000430I1 
00004400 
X00004'j00 
00004600 
X00004700 
00004000 
00004900 
00005000 


00005400 


NIPS  360  FFS  PROCEDURES 

//QRTF  ILF  OU  OSNAKE  = CQIU,UNIT  = CUQRT,VOLUME=eVCKT,OISP=(SHR,(;OOISP,KEEP) 
//r.Hf  CKDD  0.)  0 SNA  MF  = tCHK  10,0!  SP=(  CCUK  ST  , f. NR  PDS P , C ClIKDSP  ) ,UN1T  = &UCUK, 

//  VOLUME=CVCHK, SPACE  = (CYL  , ( CCHKSP  , 1) » 

//STAT  DO  UNIT  = CSTG,SPACE  = (CYL,(2, n ) 

//TRANST  DO  OSN=CTRANS,  VOL=&VTRAN'S,UNIT  = CUTPANS, 

//  01 SP  = CTDI SP, SPACE  = ( TRK  , 1 ) 


OOOOSSOO 

00005600 

00005700 

00005ROO 

00005900 

00006000 
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NIPS  360  FFS 


PROCEDURES 


//XOPSD 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//*  CE 
//*  0/ 


A=A,R=n,CSZEILE=f DSZFILl=,BSZFIL2=t 

CL  = ' , • ,CL 1 = ', • ,CL2=' , • , 

ISAK=*DU“''MY.FILE*  , I S AM  1 = • DUMMY.  F I L E * f I S AM2=  ' DUMMY  . F I I.  f 

JOBLin='FFS.JOBLlU*  f JOBMAC= • FF S. JOBMACR C • i 

LAB=SL, 

LI B='nUMMY.FlLE' , LI Bl=* DUMMY. FILE* , L 1 82= • DUMMY . F ILE'  , 
LI BDI SP=SHR , 

PTFjnBL  = ' PTF.JOBL  IB'  i PTF JCBM=  ' PTF.  JCBMACKC, 

RGN=100K, 

SAM='  DUMMY.FILE  * i S AH  1 = • DUMP,  Y . F I L E ' fSAM2=' DUMMY. FILE', 
SDISP=SHR  , SOUKCL  = * DUMMY.FILE  ■ ,STC,=  NIPW, 
TDISP=MOD,TRANS='CCTRAAS' , 

UI  SAM  = ' ( 23  F,  ,P  I • , 

ULIB  = 231<,,UL  im  =23  1 4,  ULIB2  = 23  U, 

USA  N-MTAPE9,, DEFER)',  US0URCL=23  14  , 

UTRANS=NIPW, 

VISAM=,VISAM1=,VISAM2=, 

VLin=,VLlBl=,VLID2=, 

VSAM=, VSAM  1= ,VSAM2= , 

VSOURCI.  = , VIRANS  = 


CHARLES  W.  HICKISCH 
DATE=MARCH  1,  1974 


MAJOR, USA  PRCJ  C0CE=763NIPS  BP.ANCH=431 


//* 

//OP  EXEC  PGM=OP,  REGIUN=f;RGN 


//STEPLIB 

// 


DSN=CPTFjnBL,DlSP=SHR 
0SN=tJ08L I B,OISP=SHR 


//DATAFILE  DD  DSN A MF  = C I S AM ,0 1 SP  = SHR , UN  I T = CUI SAM ,VCLUME  = CV I S AM 
//DATAFIL  1 DD  DSNAMF>f.  ISAM1,DI  SP  = SHR,  UNI  T = CU I SAM,  VCLUME  = EVI  SAMI 
//DATAFIL2  DD  DSN AMf =t 1 S AM2, D 1 SP=SHR , UN  I T = £0 1 S AM, VCLUME  = CV I S AM2 
//SAMFILE  DO  D SNAMr  = CSAH . S ,0 1 SP= SHR , UM T= CUSAM , VOLUME= C VS AM , 

//  LABCL=( , £1 AB) , DCB=BL K S I ZE = £B SZF I LE 

//SAME  I LEI  DO  DSNAMI =£SAH1. S, D I SP  = SHR , LN I T= CUS A M , VOLUME  = CVS AM  1 , 

//  LA8FL=( ,£LAB) ,0CB-BLKSIZF=£RSZFIL1 

//SAMFILE2  DD  DS NAME  = CSAM2. S , D I SP  = SHR , UN  I T = £USAM , vaLUME  = EVSAH2 , 

//  LABEL=( ,£L AB) , DCB=BLKS 1Z£=£DSZF IL2 

//DLIB  DD  DSNAME=£LIB.L,DISP=CLIBDISP,VCLUME=£VLIB,UNIT=£UL1B 
//TLIB  DD  DSNAME=£LIB1.L  ,D1SP  = SHR,V0LUME  = £VL1B1,UNIT=£ULI61 
//SOURCPRT  DD  SYSOUT= I £A , CCL ) 

//SOURCE  IB  DD  D ISP  = £SDI SP ,D SN  = £ SOLRCL. L , VCL= CVSOURCL ,UNI T = £USOURCL 
//SYSPRINT  DD  SYSOUT= ( £A , £CL 1 , 0C0= ( LRECL= 133 , BLKS I ZE=665 » 

//SYSOUT  DD  SYSOUT=( £A,£CL) 

//SYSUDUMP  DD  SYSOUT= { £ A , CCL 1) 

//SYSUTl  DO  UNI T=£STG, SPACE= (TRK, (200,20) ) 

//SYSUT2  DO  UNI T=( £STG, SEP=SYSUT1 ) , SPACE= (TRK,(200,20) ) 

//SYSUT3  DD  UN1T=(£STG, SEP=( SY SUT 1 , S YSUT2 ) ) , SPACE = (TRK, ( 200,20) ) 
//SYSPUNCH  DO  UNIT=£STG,SPACE*(TRK,(50,10)), 

//  OCB=(RECFM=FB, LRECL=80,BLKSI ZE=400,BUFNC=5) 

//SYSLIB  DD  DSN=£PTFJOBM,DISP=SHR 
//  OD  DSN=£JOBMAC ,PISP=SHR 

//SYSLMOD  DD  UNI T=C STG, SPACE= ( TRK , ( 50 ,25 , 5 ) ) , OCB »SYS I .L I NKL I B, 

//  LAflEL=RETPC=0000 

//SYSTPRT  00  SYS()UT= (£A,CCL) ,CCfl«(RECFM*FB,LRECL=V21 ,BLKSIZE*605) 
//OPIWCF  DO  UNI T=£STG,SPACE*(TRK, (2, 1) ) , OCB= ( BLKS I Z C*400 , LRECL*00 , 
//  PEC»H=F0) 

//OPSTST  00  UNIT  = £STr.,SPACE=(TRK,(10,2)) 

//OPCREATE  DD  UNI T = £ STG , SPACE* ( TRK  ,(  LuL)  ) , 


ooooo  um 
0 000(1/00 
, 00000300 
00000400 
00000500 
00000600 

00000  (00 

OOOOOliOO 
OOOOOOOO 
00001000 
OOOOt 1 00 
00001200 
00001300 
00001400 
00001 500 
00001600 
00001 700 

00001  BOO 

0000  noo 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
X00003010 
00003100 
XOOOO 3200 
00003300 
♦00003400 
000035O0 
00003600 
00003700 
00003000 
0000  JOOO 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
X00004600 
00004700 
00004000 
00004900 
X00005000 
00005100 
OC005200 
♦00005300 
00005400 
00005500 
0000*3600 


NIPS  360  FFS  PROCEDURES 

//OPCOMRFC  00 
//INSTS  OD 
//LCf-  OD 

//in  OD 

//IITSTR  DO 
//NAMOEF  OD 
//LlTAil  DO 
//RGTAB  00 
//CGC  DO 

//ERHTArt  OD 
//SUBTAB  DO 
//DCTMY  00 
//OPIGOGD  DO 
//OPLFXFX  OD 
//OPLCXDIK  DO 
//DPI.  INC  DO 
//OPPUNCH  OD  SYSOUT=&B 

//St  10  DO  OSNAME=*.SYSLMOD,VOLUME=REF=*.SYSLMOD,DISP=(CLDf PASS) 

//  DO  n5NAME  = *.0L  IP,01SP=SHR.UNlT  = f.ULIB,VnLUyE=CVLIB 
//  DO  OSNAMF  = *.TL  I0,DISP=SHR,UMT=(;ULIB1  ,VCLUME  = £VLIBl 
//  DD  DSNAME  =CL  I 132.1.  ,01  SP=SHR  ,UNI  T = ClJLIB2t  VCLUME  = CVLI  E2 
//  OD  DSN=CPTF JOBL, 01 SP=SHR 

//  DO  OSNAKE  = £,  JOBL  IB,D  ISP  = SHR 

//SYS A IN  00  OSNAHE=*.L ITSTR,VOLUP'E=RFF  = *.L ITSTR,DISP  = (CL0,PASSI  , 

//  CCB=(RECFM=FB,LRECL  = e0,Bl.KSlZE='.00,RUFNC=5) 

//  OD  DSNAME=’*.INSTS,V0LUMF  = REF=*.  INSTS, DISP=tOLD, PASS)  , 

//  DCB=(  RECFM  = F0,LRECL=BO  ,8LKSI2E  = '«00,  BGFN0  = 51 

//SYSLIN  00  OSNAME  = * . LCF,  Vr)LUME  = REF=*. LCF, OISP=IOLO, PASS) 

//SYSriN  DO  OSNAME  = *.LCT, VCLUME  = REF=*.LCT,0ISP=ICLD  ,PASS) 

//LOAOK  OD  OS  NAM E = *. SYSPLNCH, VOLUME  = REF  = *. SY S PUNCH ,0 1 S P= ( OLD  , PASS ) , 
//  0CB=(RECFM  = FB,LRECL=80,BLKSI  2E='!,00) 

//STAT  OD  DSN=*.INSTS,VUL=ReF=*. INSTS, DISP=(CLD, PASS) 

//TRANST  DD  DSN=S TK ANS, VOL= C VTRANS ,UN I T= CUT RANS , 

//  DISP  = CTDISP,SPACE  = <TRK,n 


UNI T = eSTG, SPACE= ( TRK, ( 1 , 1)  ) 

UNI  T = CSTG,SPACE=(TP.K,(50,5)) 

UHI T = tSTG, 5PACE= ( TRK , ( lO.S)  ) 

UNI  T = CSTG,  SPACE  = ( TRK, ( 10,5)  ) 

UNIT=CSTG, SPACE=( TRk , (50,5) ) 

C5NAME=».SYSUT  1 , VOLUME  =REF  =«=.  SYSUTl  ,DI  SP=  ICLD,  PASS) 
DSNAME=*.SYSUT2, VULUME=REF=*.SYSUT2.DISP=(CLn,PASS) 
DSNAME=*.SYSUT3, VOLUME=REF=*.SYSUT3,DISP=(CLO,PASS) 

UNI  T = CSTG, SPACE  = ( TRK , ( I , 1) ) 

UNI  T = CSTG, SPACE=( TRK, (8 ,5)  ) 

UNI T=CSTG, SPACF  = ( TRK, ( 1 , 1)  ) 

DSNAME=*.SYSPUNCH, VOLUME =REF=*,S YSPUNCH,D I SP=(CLO, PASS) 
CSNAME  = <-  - SYSUTl , VOLU>'E  = REF  = ♦ . SYSUTl , 0 I SP=  ( OLD  , P ASS  ) 
DSNAMC  = *. SYSUT2, V0LUME  = REF  = *.SYSUT2,0I SP  = (CLO.PASS) 
DSNAMC=*. SYSUT3 , VOL UME =REF  = * . S YSUT3 , 0 I SP=  ( CLO , P ASS ) 
SYSOUT=( CA,CCL2) , OCB  = LRECL=  13  3 


00005700 

0000530C 

0000590C 

OOOOAOOO 

00006100 

00006200 

00006300 

00006AOO 

00006500 

00006600 

00006700 

00006800 

00006900 

00007000 

00007100 

00007200 

00007300 

000C7A00 

00007500 

00007600 

00007700 

00007800 

00007900 

oocoaooo 

00003106 

00008200 

0000830U 

00008AOO 

00008500 

xoooonuoo 

00008700 

O0009R00 

00000900 

00009000 
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NI PS  360  FFS 


PROCEDURES 


CHARLES  W. 
DATE=HARCH 


//XOPSDEX  PROC 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//♦ 

//* 

//♦ 

//♦ 

//OP  EXEC 
//STEPLIQ 
// 

//DATAF ILE 
//OATAFILl 
//DATAFIL2 
//SAMF  ILE 
// 

//SAMFILEl 
// 

//SAMFILE2 
// 

//OLIB  DO 
//TUB  DD 
//SOURCPRT 
//PRINTER 
//SYSOUT 
//SYSPRINT 
//SYSUOUMP 
//OPLINE 
//OPIMCF 
// 

//OPCOHREC 
// 

//OPLGOGO 
// 

//OPLEXEX 
// 

//OPLEXOIR 
// 


A=A,B=B,BS2FILE=,BS7FI L1=,0SZF1L2=, 

CL  = *,  ',CL l = *f • •CL2  = ' , • f 

CHKnSP=DELETE ,CHK1D=' CCCHKIO* ,CHKS P = 0 ,CHKST= NEW , 

1SAP= 'DUMMY. F I LC • , I SAMI  = ■ DUMMY .F I LE * , ISAM2=' OUMMY.E ILL' 
JOBLIB='FFS.JOBLIO' , 

LAB=SL, 

LI B='DUMMY.FILE'  , L 1 B 1=  • DUMMY .F I LE • , L I D2  = • CUMM Y. F IL t ' , 

LI BDI SP=SHRt 
NRMnSP=DrLETE, 

PTFJOBL=' PTF. JOBLIB* , 

PGN=100K, 

SAM=»OUMMY.FILE' , SAM1= • DUMMY.F I LE ■ , SAM2 = • DUMMY. F I LE ' t 
STG=NIPW, 

TDISP=MOntTRANS=»CCTRANS' , 

UCHK=NI PW, 

UISAM=» (231A,P) •, 

UL  IB=231A,ULIBL  = 231A,ULIB2=231At 
USAM=' ( TAPE9, .DEFER) • , 

UTRANS=N IPR, 

VISAM=,VISAM1=,VISAM2=, 

VLIB=.VLIB1=,VL 1B2=. 

VSAM=,VSAM1=,VSAM2=, 

VCHK=,VTRANS= 


HICKI SCH 
1.  1974 


MAJOR. USA  PRCJ  C0DE=763NIPS  BRANCH=43l 


PGM=OP.REGION=CRGN 
DD 
DD 


DO 

00 

DD 

DD 

DO 


DSN=CPTF JOBL.DI SP=SHR 
OSN=GJOBLIB.DISP=SHR 

DSNAME  = CISAM,niSP=SHR.UNIT=CUI SAM .VOLUME  = E V I SAM 
DSNAM£=CI SAMl.OI  SP  = SHR.ONI T = £UISAM, VOLUME=£VI SAMI 
OSNAME=£I SAM2.DI SP=SHR, UN1T=£UISAM. VCLUME=£VI SAM2 
DSNAME=£SAM.S.OI SP=SHR . LN 1 T=£LSAM .VOLUME =£VS AM . 

LABEL=( .£L AB) .DCB  = BLKSI2E  = £BSZF  ILE 
OSNAME=£SAMl. S.O ISP=SHR.UNI T=£USAM. VOLUME=£VSAMl. 
LABEL=( .£LAB) .DCB=BLKSIZE=£BSZFIL1 
DD  DSNAME=£SAM2.  S.DISP=SHR.UMT  = £USAM  . V0LUME  = £VSAM2. 
LABEL  = ( .£LAP) .OCB=BLKSIZE  = £BSZF  IL2 
OSNAME=£LIB.L . DI SP=£L lODI SP. VOLUME=£VLIB.UNIT=£ULIB 
DSNAME=£LIB l.L .DISP=SHR. V0LUHE=CVLIB1 .UNI T=£ULIBl 
DD  SYSOUT=I£A.£CL) 

DD  SYSOUT=(£A,£CL) 

SYSOUT=(£A.£CL) 

SYSOUTs(£A,£CL) . DCB»LRECL=133 
SYSOUT  = (£A.CCLn 
SYSOUT=( £A.£CL2) . OCB=LRECL« 133 


DO 

DD 

DO 

DO 


DO 


DD 


DO 


DD 


no 


UNIT=£STG.SPACE=(TRK. C2. 1) ) . DCB= ( OLKS I ZE=400 . LREC L=00 . 

RECFM*Ffl».DSNAME=CCHKID.A.OISP=(.CNRMOSP.£CHKDSP) 

UNI T=£STG.SPACE«(TRK.(1.1)). 

01 SP  = 1 .£NRMDSP.£CHKOSP ) .CSNAHE'GCHK ID. B 
UNIT=£STG.SPACE«( TRK. (20.11 ) . 

DISP^I.CNRMDSP.CCHKDSP) .OSNAME'GCHKIO.C 
UNIT«( CSTG.SEP*OPLGCGO) . SP AC F- ( TRK . ( 20 . 1 ) I . 

DiSP>(  .GNKMOSP  .CCHKDSPI  .0SNAME°£CI<K10.0 
UNI Ta( £STG. SEP* (CPLGCGO. OPLEXEX I ) . SPAC E“ ( TRK . ( 20 . 111. 
DI  SP*(  .r.NRMDSP.£CHKnSPj^OSNAMC*eCMKID.E 


00000100 
OOOOO/f'O 
OOOOOJOl) 
, 000004(111 
OOOOOHOO 
OOOOOOOO 
00000 700 
OOOOOIKIO 

oooooooo 

0000U910 
OOOOlUOO 
00001100 
OOOOlPOO 
00001301) 
00001400 
OOOCl  ')00 
00001 000 
00001 700 
OOOOIBOO 
00001900 
00002000 
00002100 
0000220(1 
00002300 
0000241)0 
00002‘)0n 
0000260.) 
00002  700 
00002000 
00002010 
00002900 
00003000 
00003100 
X0000320O 
00003300 
X0000340() 
00003600 
♦00003000 
00003700 
00003BOO 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
O0004S00 
♦00004600 
00004700 
X00004R00 
00004900 
X00005000 
00005100 
X00005200 
00005300 
X000054()'.) 
00005500 
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NIPS  36C  fFS  PROCEDURES 

//OPPUNCH  DO  SVSOUT=f.H 

//Slid  no  ;)SNAMr  = ».oi  ih,  oi  sp=shp  ,uni  T = euiiB,vc.i  ume  = cvi  i e 

//  01)  OSNAMf  =*.Tl  Ifc,  UI  SP=  SHR,  LNI  T = £UI.  I B1  fVOLUPE=t  VL  IBl 
//  00  DSNA'^I  =f.L  IBP.L  , DI  SP  = SHR,CNI  T = tLL  IB2  ,VCLUME  = CVL  I B2 

//  DO  OSN=CPTFJOBL,OISP=SHR 

//  00  DSNAHE^tJOHl  IO,niSP*SHR 

//CUrCKOO  00  OSNAME^Cf.HK  I 0 i 0 I SP=  I CC  HK  S T , CNR  MQS  P , CCHKDSP  ) ,UNIT=CUCHK, 
//  VOI  UM[  = CVCHK,SPACF= (CYL  , tCCHKSP,  1) ) 

//STAT  00  UNI  T =:CSTG,  SPAC£*(CYL  , ( 2, 1 ) ) 

//rP.ANSr  00  DSN^CTPANS,  V0L  = CVTPANS|UMIT=CUTRANS, 

//  DISP=CTDISP,SPACE=(TPK,1) 


0000I>600 

OOOOS/00 

OOOOSBOO 


00006100 

00006200 

00006300 

00006A00 

00006600 
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//XSP  PROC  A = A,  BLKSl ?E  = 560,BS/F I LF  = , eS/NEFF  = , 

//  CL  = ' , ' tCL  l = * ,*  inEN=  ,I  SAP='0U>'PY.FI  I F • , 

//  JTHI  IH='FFS.jniJL  I R*  ,I.Ari=SI  ,1  Itl  = *QUYMY.F  ILE'  , 

//  NliRBLK  = a00tRCN  = 100K,5AK=*DUMMY.F  ILF'  , 

//  PTF  JOf>L  = 'PlF.jniiL  IH' , 

//  SAM(JUT=' DUMMY,  • , SCR  T SP  = 1 0 , S TG=N  I Pw  , T PC  H=  , 

//  UISA»  = 231'i,ULlB  = 231A,USAP  = '(TAPC'),,nFFER)', 

//  VI  SAM=, VL IB= ,VSAM=,VSMCbTr ,XC1 SP=OLD, 

//  XI  fJDEX= 'DUMMY.  F ILE'  , XUM  T=  2 3 1 A , XVCL  = 

//♦** 

THIS  PRUC  IS  USED  TO  GENERATE  CR  UPDATE  A DISK  RESIDENT 
INDEX  DATA  SET  BASED  ON  THE  DISK  RESIDENT  ISAM  DATA  FILL. 


SER=XXXXXX' , 
NBRflLK  = DDDD 


//♦♦* 

//**♦ 

//♦♦* 

//♦*♦  //STEPNAME 
//♦♦* 

//»»♦ 

//♦  CHARLES  H.  HICKISCH 

//♦  DATE-MARCH  I,  197', 

//♦♦♦  ♦» 


EXEC  XSP,ISAH=AAAAAAA,V!SAM= 
XVOL=' SER=YYYYYY' ,XDISP= (BBB) 


MAJOR, USA  PPCJ  COCE=763NIPS  BRANCH=rA31 


OOOOi)l  00 
00000200 
OOOOl)  100 
OOOOOAOo 
000000')  I 
OOOOOOOo 

00000  MO 

oonooooo 

OOOOOOOO 

00001  00') 
OOOOl 100 
000C12 on 
OOOOl 1)0 
0000 1 ADO 
0001)  I ‘.o  ) 
OOOOIOO) 
OOOOl  70’) 
OOOOl  '100 
0000  I')  00 
00002000 
000021 00 


//♦ 

0000220)) 

//UTXSP 

exec  pgm=utnoxspc, region=crgn 

00002  100 

//STEPL  IB 

DD 

OISP 

=SHR,DSN=CPTFJOOL 

00002A0') 

// 

DD 

DISP 

= SHR,DSN=f.JCOLI0 

00002‘>OO 

// INOEXPRT 

DD 

SYSnuT  = ( CA, tCL  1 

00002000 

//ISAMWOP.K 

DD 

UNI  T=tSTG,  SPACE*  (CYL  ,(  10 ))  , DC  B=  ( CSCRG=  I S , R ECFM*  Vt» , 

C000G2  70  ) 

// 

LRECL=l 000,BLKS I7t= 100A,OPTCC=I YLR ,CYLCFL=2) 

00002000 

//NEWF  ILE 

DD 

DSN  = t;iSAM,OISP=SHR,VCL=fVISAM,UMT  = CUlSAM 

00002000 

//SAMFILE 

DD 

DSN=£SAM.  S,UNI  T = £USAM,  V'JLUME*  CVSAM, 

(.0000  3000 

// 

OISP 

={ SHR , KEEPI ,LADEL=( , tLAB 1 , DCB= I R ECF M* VB , L RFC L= 1 000, 

COC003 I 00 

// 

BLKSUE  = tBS7FILE,TRTCH  = CTRCH,0EN=£CEM 

0000)200 

//SLIB 

DD 

DSN=tLI3.L,VCLUME=CVLIB,UNIT=eULI0,CISP=SHR 

0000  ) 100 

II 

DD  DSN=CJ06LIB,OISP=SMR 

0000)900 

//SDRTLIB 

DD 

DSN'SYSl.SCRTL IB.DISP'SHR 

O0OO3S0O 

//SORTklKOI 

DD 

UNIT'tSTG, SPACE'ICYL, (CSCRTSP) , ,CONT IGI 

00003600 

//S0RTWK02 

DO 

UNIT=CSTG,SPACE=(CYL, (ESORTSP) , ,CONTIGI 

00003700 

//SORTWK03 

DD 

UN  I T= CSTC, SPACE »(CYL,(C 'CRISP) ,, COM  IGI 

000031100 

//SORTWKOA 

DO 

UNIT=CSTG,SPACE=(CYL, (CSCPTSP) ,, CONTI G) 

oooo3')no 

//SORTWK05 

DD 

UNIT=CSTG,SPACE»(CYL  ,(CSCRTSPI  , ,CC!NTIG) 

00009000 

//SORTWK06 

DD 

UNI T=CSTG,SPACF=(CYL , (CSORTSP) , ,CONT  IG) 

00009100 

//SOURCPRT 

DD 

SYSOUT*! CA,tCL ) 

00009200 

//SYSOUT 

DD 

SYSOUT*ir.A,£CLl) 

000C9300 

//SYSPR INT 

DD 

SYSOUT*(tA,CCL) 

00009900 

//SYSUOUMP 

DO 

SYS0UT=(CA,£CL1) 

00009 soo 

//UTSAMnUT 

00 

tSAMOUT.DC 6= (RECFM=VB,LRECL*V000,BLKSIZE*t8S/NEWF, 

00009600 

// 

DEN' 

tDEN,TRTCH»tTRCH) ,OISP*( ,KEEP) ,LAB£L»I .CLABI  , 

C00009700 

n 

UNIT 

-CUSAM.VOLUMF*! PRI VATE,RETA IN, C VSMCUT ) , DSN*C S AM . S 

OOOOAROO 

//XINOEX  1 

DD 

OSN'CXINDEX.X.DI SP= I CXD I SP , KE EP I ,UN I T* 6XUN I T , 

00009900 

II 

VOL* 

CXVOLfSPACE'ICBLKSIZE.CNORBLK) , 

00005000 

n 

DCB* 

(DLKSlZF*tnLKSI ZE,RECFM*F,K£VLEN*A,DSORC*OAI 

00005100 

143 
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//xsruis  PROC 

A-A,HSZFILF=,0S7N£HF*,CC»,CL  = ' , • ,CL 1 ' • , ' t C YL OFL  = 1 ,DE N=  , 

OOCOOi 00 

// 

INO£X=l , I SAM=' OUMMY.F III*  , JOBL I B = ' F E S . JO0U I 0 * , 

00000200 

// 

LAn=SL ,NOISP=KCEP,CVFLCK=5,PRIMF=40, PGN=60K, 

00000300 

// 

PTF JOBL=*PTF.jnBLI0* , 

OOOOOAOO 

// 

SAM=:*OUMMy.FILE*  ,S£CIN0=1,TRCH=,U1SAM='  (2  314,P)  • , 

OOOOOSOO 

// 

USAM=' ( TAPED, , DEFER) • , V I SAM= • SE R=C ANCE L • , 

00000600 

// 

V(1  VF  1.  CM  = • REF  = *.  OAT  AF1LE’,V  PR  1ME  = *REF  = ». DATAFILE', 

00000700 

// 

VSAM  = 

00000800 

//* 

00000900 

no 

CHARLES 

W.  HICKISCH  major, USA  PRCJ  CC0E*763MPS  PRANCM=43l 

00001000 

//* 

DAT  ( 

=MARCH  1,  1974 

00001 100 

//» 

00001200 

//STP 

I EXEC  PC«=UTDLDlS*',RFGICN  = CRGN,PARP=»eCC’ 

00001300 

//'. rrpL  ID 

DO 

DISP=SMR,OSN=CPIFJOBL 

00001600 

// 

00 

Cl  SP  = SHR ,DSN=CJCBL1B 

OOOCl SCO 

//DATAF  U E 

00 

OCH= (OSORG=I S,CYLnFL=CCYLOFL ,BUFN0=S,BLKS1ZE=CBSZNEWF ) , 

0000 16CC 

// 

VOLU«E=CVI SAM, 

00001700 

// 

DSfvAME  = CISAK. ( INDEX) .SPACE  = (CYL ,C INDEX)  .UNIT  = CU I SAM, 

00001000 

// 

01  SP=  ( ,£'JDI  SP.OELE  TE  ) 

00001900 

// 

00 

OCD  = ».DATAFUE  , VCL UME  = C VPR  1 ME  , 

00002000 

// 

DSNAME=CISAM.  ( PR.  I ME  ) , SPAC  E = I C YL  , t PR  I M E ) , UN  I T = CU  1 S AM  , 

00002)00 

// 

DISP=( .CNOISP, DELETE) 

00002200 

// 

00 

OCB  = *.OATAFILE .VOLUME  = CVCVF LOW  , 

00002300 

// 

OS  NAM  E = E.  ISAM.  (f)VEl  nw)  , SP  ACE=  ( C Y L , t C VF  LOW  ) , UM  T = £UI  S AM, 

00002400 

// 

01 SP= 1 , CNOISP, DELETE) 

00002600 

//SAVf  ILC 

DO 

OS NAME  = CSAM.S,  DISP  = SHR ,LNI T = CUSAM, VOLUME  = CVSAM, 

000026CC 

// 

LABEL 

= lf.  SEOMO.CLAB)  ,DCB={  RECFM  = VB,LRECL=1000,BLKS  IZE  = CBSZFILE, 

00002700 

// 

r)EN=tOEN,TRTCH=(.TRCH,nUFNO=5) 

00002800 

//svs 

PRINT 

00 

SYSnUT=(£A,CCL) 

00002900 

//SYSUIHJMP 

00 

SYSOUT  = I£A,CCLn 

00003000 
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//XTABGEN 

// 

// 

// 

// 

//♦ 

//♦  CHAR 
//•  DATE 
1 1* 

//TAB  EXE 
//STFPL  IB 
// 

//SYSOUT 

//SYSUCIJMP 

//SYSPRINT 

//SnP.TLlB 

//SORTWKOl 

//S0RTr/K02 

// 

//S0RTWK03 

// 

//SORTWKOA 

// 

//SORTWKOS 

// 

//S(JRTWK06 

// 

//SYSLMOD 

// 


PROC  A = A,  f)LK  = 7;?9A,CL»'  , • ,CL  1 = ' t ' t C L2=  • , • , 
JOBl.  IB  = 'FF  S.  JOia  I B*  ,L  I B^NONE  , L I EDI  SP  = r.l.D  , 
LIBSP  = M2tl,5)  • ,Rr,N  = eOK  , SOR  T SP  = 8 , STG  = M P«  , 
PTFJOBL='PTF.JUBLlB' i 
VI  IB  = 


ULIIi=2ilA, 


LES  HICKISCH 
iMARCH  1,  1974 


MAJORtUSA  PROJ  C00E=763MPS  BRANCH  = 43l 


C PGM=UTTABCEN,REGinA=CRGK 
00  OISP=SHR,DSN=CPTF JOBL 
00  01 SP=SHR, DSN=tJnBL I B 

00  SYSOUT  = (e.A,CCL) 

00  SYSaUT=(F.A,£CLl) 

DO  SYS()UT=(tA,6CL2) 

00  CISP=SHR,DSNAMF=SYSl.SCRTLI B 
00  SPACr=(CYL, ( tSCRTSP) , .CQNTIG) ,UNI 
00  SRACE  = ( CYL  , (t  SORTSP)  i tCONT  IG)  ,0M  T= 
SEP=SnRTwKOl 

DO  SPACE=(CYL, (t SORTSP) ,,CCKTIG) ,UNIT= 
SFP=SnRTWK02 

DO  SPACE* (CYL , leSORTSP) . tCONT IG) ,UNIT= 
S0RTWK03)  ) .SEP*  (SORT ViKOl.SORTHKOS) 
DO  SPACE=(CYL.(CSnRTSP)..CONTIC),UNIT= 
SORTWK04) ) ,SEP=(SnRTWK02,SrRTWK04) 
DO  SPACE*  (CYL  . (i;  SORTSP)  , , C OAT  IG  ) , UN  I T= 
SnRTWK03,SnRTWK05) ) .SEP=( SORTWKOl. 

DO  DSNA>1E=f.L  lB.L.VnLUVE  = I.VL  1B,UMT  = (;UL1 
DI SP=(tLIBDISP.Kr£P) ,DCC* ( RTCFP^U, 


T = f.STG 
(CSTG, Sb 


P=S0RTWK01 ) , 


(CSTG,SEP=SCRTWK02), 
(CSTG.SEP=(S0RTwK01 , 


(f;STG,SEP=(  SnRTWK02  . 


(CSTG.SE 
SORTWK03 
8, SPACE* 
BLKSIZE* 


P=  ( S0RTV.K01  , 
.SORTWKOS) 
(CYL.tL  IBSP), 
COLK) 


OUOOU I 00 
000GJ2OO 

00000 
00000  11 0 
OOOOOAOO 

noooo'.o' 

00000600 

OOOOJ/OO 

ooonoBo.i 
O0CC09O  > 
OoOOlOOO 
0000 10  lo 
00001 1 0) 
00001200 

00001  '.00 
00001 600 
ooool  '.00 

XOOOO 160  I 
00001 (00 
XOOCOl MOO 
00001 900 
X0000200  ) 
0000210O 
X00002200 
00002300 
X 00002 6 no 
0 0(j02'.CO 
xoooo2(.no 
00002 (00 


CH-3 


NIPS  360  FFS 


PROCEDURES 


//XTP  PROC  A=A, 

//  CL»', • ,CL1=' , • ,CL2=U,CL3=C,CL4=S,CL5=T, 

JOBLIB='FFS.JOPLIC* , 
L10=*DUMMY.FILE', 

Lini*'OUMMY. FILES 
PTFjnBL  = *PTF.JCBLIBS 
RGN»82K , 

STG=NIPW,TP[MO=TPIMQ, 
TPDUMP=»SYSOUT=(A,,)' , 
ULIB=2314,ULIB1=2314, 

UOM0=231't, 

VOMa=*RCF  = #.INMSGCS 
VLIB=,VLIfll=, 

XINDEX='DUMMY.F1LE* i 
XUNIT=2314,XVOL= 


// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//* 

//♦ 

//♦ 

//TPMONSUP 
//STtPLIB  OD 


CHARLES  Vi. 
DATE=MARCH 


HICKISCH 
1,  1974 


MAJOR, USA  PROJ  C0DE»763NIPS  0RANCH=43l 


EXEC  PGM=UTTPDRVR ,REGION»eRGN 
DSN=ePTFJOBL ,D1SP=SHR 


//  00  DSN=£JOBLIB,OISP*SHR 

//SYSUTl  00  SPACE= (TRK, t 0,51) , UNI T=CSTG 

//SYSUT2  00  SPACE= (TRK, ( 0,20) ), UNI T=CSTG 

//SYSUT3  00  SPACE  = (TRK,(0,5))  ,UNIT=<(;STG,SEP=SYSUTl) 

//SYSUT4  on  SPACE=(CYL,(0,1) ) ,UNIT=tSTG 

//SLIB  00  DSNAME  = CLID.L,UNIT=CLHn,  VnLUMF=CVLIB,OI  SP=SHR 
//  DO  DSNAMF=tLlBl.L,UNIT=CULlBl,V0LUME*CVlIBl,01SP=SHR 

//  DO  DSNAMC=EJC1BLIB,DISP=SHR 

//DATAFILE  DO  0 ISP= SHR ,DS NAME  = DUMMY .F I LE , LNI T= I ,P ,DEFER ) 

//OATAFILA  00  DSN=DUMM Y . F IL E67 , UNI T * ( N I PW ,2 ) , SP ACE  = ( TRK , ( 0 I ) , 0 ISP 
//DATAriL2  00  0 1 SP  = SHR , CSN=nUMM Y. F I LE ,UM T= ( 231 4 , P, DE F ER ) 

//DATAFIL3  00  0 I SP  = SHR , CSN=OUKM Y .F 1 LE ,UM T= ( 231 4 , P ,DEFEB) 

//SAMFILL  00  0ISP=SHR,DSN=DLMMY. FILES, UNIT=(2314,P, DEFER) 
//COCUNSOL  00  SPACE=(TRK,(5,  ,4)  ) ,LNn  = CSTC 
//COITLIU  00  DSN=DUMHY.FILEL,DI SP=SHR 
//INMSGO  DO  OISP=SHR,DSNAME=tTPIMC 
//CMSGO  DO  OISP=SHR,DSNAME=CTP IMQ 

//C)UTMSC(J  00  SPACF  = ( TRK,0),VOLUME  = £VOMQ,UMT  = CUCMQ 
//AMSGQ  on  UN1T=GST0,SPACE»( TRK,0) 

//SOrONSOL  00  UNIT=CSTG,SPACE=(2300,(10,,4)) 

//SDKNSET  DO  SPACE=(CYL,( 1,1) ) ,UN1 T=C STG, DCB= ( RECFH=F , BLKS I ZE= 1004 ) 
//STATRECS  DO  S YSOUT= ( £A , £C L ) 

//SYSLMOD  no  SPACE»ITRK,(20,,e)),UNIT*£STC,0CB«FFS.JCBLIB, 

//  LABEL=FXPDT«66366 


//SVSPRINT  DD 
//SYSAHENO  00 
//TPOUMP  OD 
//EOITDUMP  DO 
//SYSONLIN  00 
//XINDEX  DO 
//SHAKOASO  DO 
//SYS  IN  00  DUMMY 
//U  on  SYS0UT«(tA,tCL2) 
//C  DO  SYSCIUT*(CA,tCLJ) 
//S  00  SYS0UI*(tA,tCL4) 
//T  00  SYS0UT«(tA,CCL5) 


SYSnUT={ CA,CCL I 
SYSOUT=(CA,CCLl) 

SYSaUT=(£A,6CLl) 

SYSnUT=( £A,£CL1) 

CTPDUMP 

CSN=CxrNOEX.X,UNIT=exUNIT,VOL»tXVCL,DI SP=SHR 
CSN=NIPS.TPjr8Q,0ISP= (MOD, KEEP! 


ue 


ai-3 


000001 00 
00000200 
00000300 
00000400 
00000500 
00000600 
OOOOOBOO 
00000900 
00001000 
OOOOllOO 
00001200 
00001300 
00001 400 
00001500 
00001600 
00001 700 

ooooiaoo 

00001900 
oooopnoo 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
=NEW  00003200 
00003300 
000C3400 
00003500 
0OOC360O 
OOOCJ/00 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
00005600 
00005700 
00005800 


NIPS  360  FFS 


PROCEDURES 


//SUBFILE  DO  UNIT=CSTG,SPACE=(CYL, (0,1, 10)1 
//MENUSET  OD  DSN= DUMMY . F I LFL , 0 I SP= SHR 


OOOOb'JOO 
0000‘jV  I 0 


NIPS  360  FFS  PROCFDURES 


//XUTODE  PROC 

A=A, 

00000100 

// 

CL=',', 

00000200 

// 

J0BLln='FFS.J08LlB*  , 

00000)00 

// 

PTFJOBI  = 'PTF.JO0LIB' , 

OOOOOAOO 

// 

LIB=*OUMMY.FILn • f 

OOOOO'iOO 

// 

RGN=66K, 

0000060lj 

// 

SO  ISP  = SHR , 

00000700 

// 

SNAP=, 

00000800 

// 

SOURCL= 'DUMMY. F ILE' t 

00000900 

// 

UL IB=2314, 

00001000 

// 

USnURCL=23U, 

0000 1 100 

// 

VL  ID=, 

00001200 

// 

VSnURCL= 

00001300 

//XUTOOn  EXEC 

PGM=UTOOE , REGiaN=eRGN,PARM=CSNAP 

00001^0.' 

//SIEPLIH  on  OSN=tPTFJOBL iDISP=SHR 

00001500 

//  on 

DISP=SHR,DSN=£JOBLI0  » 

00001600 

//SYSUUUMP  DD 

SYSOUT=UA,£CL) 

00001700 

//SNAPSHOT  no 

SYSClUT=(£AieCLJ 

00001800 

//SOimCPKT  DO 

SYSC)UT=  (tA  ,tCL) 

00001900 

//nonpKT  00 

SYS0UT=(£A,CCL) 

00002000 

//SYSPRINT  DO 

SYSOUT=( tA.tCL) 

0000210J 

//SLIH  00 

01  SP  = CLD,DSN=f:L  IB.L  f UNI  T=CUL  ID,  VOL  = CVL  1 B 

00002200 

//SOURCLIB  00 

01 SP=£S0ISP,DSN=tSnURCL.L,UNIT=6US0URCL, VCL=CVSOURCL 

00002300 

1U8.2 
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Z' 


NIPS  360  FFS 


PROCEDURES 


//XTRDISK 

// 

// 

// 

// 

// 

// 

// 

// 


PROC  A = A,CL=',*fCLl  = ' , ',306^6= 'FFS.  JOEL  re*, 
LAB=SL.Rr7N  = 60K  , 

PTF JOBL  = * PTF . JOEL  I 6*  » 

XFOI  SP=  SMR, XFNAME  = f XFUM  T = 231A, XFVOL= , 

IS  AH='  OUMMY.F  tLE'  .01  S AM=  • ( 23  1 A , P ) • , V I SA  ^'=  , 
SAM='DUMMY.F ILE • ,USAP=' { T APE S , , DEF F R ) • . VSAM= , 
XTNAME=,  XTLNl  T='  ( TAPE9  , .DEFER  1 • ,XTVr,L  = , 
XTLAB=SL. STAI=NO. 

BS2F  ILE  = . TRCM=,OEN  = 


//♦ 

//♦  THIS  PROC  IS  USED  TO  TRANSFER  A C I SK-RES I DC  NT  INDEX  DATA  SET 

//*  TO  TAPE.  THIS  OPERATION  CONDENSES  THC  INDEX  DATA  SET.  THE  TAPE 
//<■  SO  created  is  a sequential  data  set  CCNSISTINC  CF  variable  LENGTH 
//♦  BLOCKED  RECORDS  THAT  CONTAIN  THE  SOURCE  DATA  AND  CCNTROL 
//♦  INFORMATION  FOR  SUBSEQUENTLY  RECONSTRUCTING  THE  SOURCE  DATA. 

//♦ 

//«■  //STEPNAME  EXEC  XTRDIS  K , XFNAME  = t.rt  . XT  NAME=XX  . XF  VCL  = YY . XT  VOL=  Z 2 
//♦ 

//♦ 

//♦ 

//♦ 

//4r«4i4i«**4i«*4[4i*4i»***««*«**«4i4c«*««*«*«««*«**«***4>***«  ****«*««««*«*«*«* 

//♦ 

PGM=UTNDXTFR.PARM='DISK,CSTAT' .PEG10N=CRGN 
01  SP»SHR.OSN=CPTFJOBL 
DISP=SHR,DSN=CjnULI6 

DD  DSN=tXFNAME.UNI T=CXFUNIT ,VCL=tXFVCL,OISP=CXFDISP 
DO  SYSOUT=(CA.£CLJ 


CHARLES  W.  HICKISCH 
DATE=MARCH  1,  197^ 


MAJOR. USA  PRCJ  C0DE  = 763MPS  ERANCH=A3l 


//XTR 


EXEC 


DO 

DD 


//STFPLIB 
// 

//INDEXOAM 
//INDEXPRT 

//INDCXSAM  DO  CSN  = CXTNAME ,UNI T = CXTUNI T . VCL  = EXT  VOL , D I S P= ( NEW . KEEP ) . 


// 

//SYSPRINT 
//SYSUDUMP 
//DATAFILE  DO 
// 

// 

// 

//SAMFILE 
// 

// 

// 

// 

// 

// 


LADEL=( .CXTLAB) 

OD  SYS0UT=( CA  ,eCL) 

DD  SYS0UT=(CA,CCL1) 

OSN=£ISAM. 

UNIT=£UISAP, 

V0LUME=£VI SAM, 

OISP=SHR 
DO  OSN=£SAM.S, 

UNIT=£USAM, 

VOLUME=£VSAM, 

DI SP=(SHR ,KFEP)  , 

LABEL=( .£LAO) . 

DCB= (RECFM=VB,LRECL* 1000, BLKSIZE=£OSZF  ILE, 
TRTCH=£TRCH,DEN=COEN) 


00000  too 
00000200 
00000300 
0U000''.0O 

xooooosoo 

X00000600  • 
00000610 
00000700 
OOOOOMOO 
**  OOOOOOOO 
» OOOOIOOO 

t 0000 1 ion 
* 00001200 

* 00001300 

* 0000 lAOO 

* 00001600 
<■  00001600 
«■  00001  700 
*■  0000 1 BOO 

00001900 
00002000 
* 00002100 
♦♦  00002200 
♦ 00002300 
O00O2A00 
00002600 
00002600 
00002700 
00002000 
X00002900 
00003000 
00003100 
00003200 
xoooo33on 
X00003AOO 
xoooo30on 
00003600 
X00003700 
X00003R00 
X00003900 
XOOOOROOO 
XOOOOAIOO 
XOOO0A2OO 
0000''.300 
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NIPS  360  FFS 


PROCCDURFS 


//XTRTAPF 

// 

// 

// 

// 

/ / 

//* 

THIS 

StT  FROM  A 
OATA  SET. 


//STEP 

CHARLES 

DATE=MARCH 


//* 

//* 

//♦ 

//* 

//* 

//* 

//* 

//» 

//♦ 

//**♦*♦♦*»♦♦♦* 

//XTR 
//STEPL  18 
// 

// INDEXPRT 
//  INOCXSAM 
// 

//SYSPR  IMT 
//SYSUDUMP 
//XINOEX 
// 

// 


PROC  A = AtCL-*  |**CLI  = *,»,JCBL1R**FFS.JO01  In* 
XFLAB=SL,NHRBLK=50,RGN=60K,XFSaPF=,  ’ 

PTF jn8L  = * PTE. JOBl IB* , 

XFUNI  T='  I TAPE9,  .DEFER)  • . XF  VPL=  , XFt)  I SP-ci  r 
XTOISP=»(  NEU.KFLP)  ’ . XT NAME=  , XTUM  1 = 23 i/j , xtvCL  = 

PROC  IS  USED  TO  RECCNSTRUCT  A 0 1 SK-RE S 1 DENT  INDEX  dat& 
PREVIOUSLY  UNLOADED  SEQUENTIAL  VERSION  CF  THE  INDEX 


OOOOOlOO 
00000200 
00000300 
X00000'’.00 

ooocosoo 
ooooosoo  * 

000C0700 
OOOCOfiOO 
00000900 
^ 0000 1000 

NAME  EXEC  XTPTAPE,XFNAME  = WW,XTNAME=XX,XFVCL  = YY,XTVCL=*7z  * OQooi*°‘^ 

* OOOoV3oS 

oooov«,o” 

0 OOO 1 Soo 
0000I6OO 


« 

* 

* 

* 


1^.  HICKISCH 
1.  197*. 


MAJOR. USA  PRCJ  CCDE  = 763NIPS  eRANCH=*I3l 


DO 

DO 

DO 


***********************************  ************  000017  00 
EXEC  PGM=UTNPXTFR,PARM*TAPE,REGICN=CRGN  00001000 
DI  SP  = SHR.DSN=CPTE JCBL  00001900 
DISP=SHR,0SN=GJ031IB  00002000 
on  SYSOUT  = ( CA  .tCL)  00002100 
OSN=eXENAME.UNl T=£XFUNIT .V0L=CXFV0L,DI SP=GXFDISP.  X00002200 
LABEL  = ( .CXFLAP)  00002300 
DO  SYSOUT=teA,tCL)  00002A00 
DO  SYSOUT=(tA.CCLl)  00002500 
DO  DSN=CXTNAHE.UN1T=CXTUNIT.VCL=CXTVCL.  *00002600 
DISP=CXTDISP.SPACE=(560.£NBPBLK) , C00002700 
DCB=I  BLKSIZE  = 560.RECFMxF.KEYLEN  = A.0SCPG  = DA)  00002800 
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